Ignore:
Timestamp:
Nov 29, 2018 7:16:36 PM (5 years ago)
Author:
suehring
Message:

Merge branch salsa with trunk

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/advec_ws.f90

    r3551 r3582  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Move the control parameter "salsa" from salsa_mod to control_parameters
     23! (M. Kurppa)
    2324!
    2425! Former revisions:
     
    317318       USE control_parameters,                                                 &
    318319           ONLY:  humidity, loop_optimization, passive_scalar, ocean_mode,     &
    319                   rans_tke_e, ws_scheme_mom, ws_scheme_sca
     320                  rans_tke_e, ws_scheme_mom, ws_scheme_sca, salsa
    320321
    321322       USE indices,                                                            &
     
    399400             sums_wssas_ws_l = 0.0_wp
    400401          ENDIF       
    401 !         
    402 !--       Mona: Now always allocated
    403           ALLOCATE( sums_salsa_ws_l(nzb:nzt+1,0:threads_per_task-1) )
    404           sums_salsa_ws_l = 0.0_wp         
     402         
     403          IF ( salsa )  THEN
     404             ALLOCATE( sums_salsa_ws_l(nzb:nzt+1,0:threads_per_task-1) )
     405             sums_salsa_ws_l = 0.0_wp   
     406          ENDIF
    405407
    406408       ENDIF
     
    11151117       USE control_parameters,                                                 &
    11161118           ONLY:  humidity, passive_scalar, ocean_mode, ws_scheme_mom,         &
    1117                   ws_scheme_sca
     1119                  ws_scheme_sca, salsa
    11181120
    11191121       USE kinds 
     
    11581160          ENDIF
    11591161          IF ( ocean_mode )  sums_wssas_ws_l = 0.0_wp
    1160        
    1161           sums_salsa_ws_l = 0.0_wp
    1162          
    1163          
     1162          IF ( salsa )       sums_salsa_ws_l = 0.0_wp
     1163
    11641164       ENDIF
    11651165
Note: See TracChangeset for help on using the changeset viewer.