Ignore:
Timestamp:
Oct 1, 2018 2:37:10 AM (3 years ago)
Author:
raasch
Message:

modularization of the ocean code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_ws.f90

    r3274 r3294  
    2525! -----------------
    2626! $Id$
     27! ocean renamed ocean_mode
     28!
     29! 3274 2018-09-24 15:42:55Z knoop
    2730! Modularization of all bulk cloud physics code components
    2831!
     
    293296
    294297       USE control_parameters,                                                 &
    295            ONLY:  humidity, loop_optimization, passive_scalar, ocean,          &
     298           ONLY:  humidity, loop_optimization, passive_scalar, ocean_mode,     &
    296299                  rans_tke_e, ws_scheme_mom, ws_scheme_sca
    297300
     
    369372          ENDIF
    370373
    371           IF ( ocean )  THEN
     374          IF ( ocean_mode )  THEN
    372375             ALLOCATE( sums_wssas_ws_l(nzb:nzt+1,0:threads_per_task-1) )
    373376             sums_wssas_ws_l = 0.0_wp
     
    454457             ENDIF
    455458
    456              IF ( ocean )  THEN
     459             IF ( ocean_mode )  THEN
    457460                ALLOCATE( flux_s_sa(nzb+1:nzt,0:threads_per_task-1),           &
    458461                          diss_s_sa(nzb+1:nzt,0:threads_per_task-1) )
     
    10841087   
    10851088       USE control_parameters,                                                 &
    1086            ONLY:  humidity, passive_scalar, ocean, ws_scheme_mom, ws_scheme_sca
     1089           ONLY:  humidity, passive_scalar, ocean_mode, ws_scheme_mom,         &
     1090                  ws_scheme_sca
    10871091
    10881092       USE kinds
     
    11231127             sums_wsnrs_ws_l = 0.0_wp
    11241128          ENDIF
    1125           IF ( ocean )  sums_wssas_ws_l = 0.0_wp
     1129          IF ( ocean_mode )  sums_wssas_ws_l = 0.0_wp
    11261130
    11271131       ENDIF
Note: See TracChangeset for help on using the changeset viewer.