Ignore:
Timestamp:
Apr 8, 2019 3:44:30 PM (2 years ago)
Author:
knoop
Message:

Moved ocean_mode specific code from advec_ws to ocean_mod + implemented ocean_actions

File:
1 edited

Legend:

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

    r3872 r3873  
    2525! -----------------
    2626! $Id$
     27! Moved ocean_mode specific code to ocean_mod
     28!
     29! 3872 2019-04-08 15:03:06Z knoop
    2730! Moved all USE statements to module level + removed salsa dependency
    2831!
     
    287290
    288291    USE control_parameters,                                                    &
    289         ONLY:  humidity, loop_optimization, passive_scalar, ocean_mode,        &
     292        ONLY:  humidity, loop_optimization, passive_scalar,                    &
    290293               rans_tke_e, ws_scheme_mom, ws_scheme_sca,                       &
    291294               momentum_advec, scalar_advec,                                   &
     
    409412             ALLOCATE( sums_wsss_ws_l(nzb:nzt+1,0:threads_per_task-1) )
    410413             sums_wsss_ws_l = 0.0_wp
    411           ENDIF
    412 
    413           IF ( ocean_mode )  THEN
    414              ALLOCATE( sums_wssas_ws_l(nzb:nzt+1,0:threads_per_task-1) )
    415              sums_wssas_ws_l = 0.0_wp
    416414          ENDIF
    417415
     
    472470                ALLOCATE( flux_l_s(nzb+1:nzt,nys:nyn,0:threads_per_task-1),    &
    473471                          diss_l_s(nzb+1:nzt,nys:nyn,0:threads_per_task-1) )
    474              ENDIF
    475 
    476              IF ( ocean_mode )  THEN
    477                 ALLOCATE( flux_s_sa(nzb+1:nzt,0:threads_per_task-1),           &
    478                           diss_s_sa(nzb+1:nzt,0:threads_per_task-1) )
    479                 ALLOCATE( flux_l_sa(nzb+1:nzt,nys:nyn,0:threads_per_task-1),   &
    480                           diss_l_sa(nzb+1:nzt,nys:nyn,0:threads_per_task-1) )
    481472             ENDIF
    482473
     
    11121103          IF ( humidity       )  sums_wsqs_ws_l = 0.0_wp
    11131104          IF ( passive_scalar )  sums_wsss_ws_l = 0.0_wp
    1114           IF ( ocean_mode )  sums_wssas_ws_l = 0.0_wp
    11151105
    11161106       ENDIF
Note: See TracChangeset for help on using the changeset viewer.