Changeset 6123
- Timestamp:
- 2015-12-18T13:44:15+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5918_nemo_v3_6_STABLE_XIOS2/NEMOGCM/NEMO/OPA_SRC/step.F90
r5510 r6123 110 110 ! Update stochastic parameters and random T/S fluctuations 111 111 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 112 CALL sto_par( kstp ) ! Stochastic parameters 112 IF( ln_sto_eos ) CALL sto_par( kstp ) ! Stochastic parameters 113 IF( ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations 113 114 114 115 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 152 153 ! 153 154 IF( lk_ldfslp ) THEN ! slope of lateral mixing 154 IF(ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations155 155 CALL eos( tsb, rhd, gdept_0(:,:,:) ) ! before in situ density 156 156 IF( ln_zps .AND. .NOT. ln_isfcav) & … … 188 188 ! Note that the computation of vertical velocity above, hence "after" sea level 189 189 ! is necessary to compute momentum advection for the rhs of barotropic loop: 190 IF(ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations191 190 CALL eos ( tsn, rhd, rhop, fsdept_n(:,:,:) ) ! now in situ density for hpg computation 192 191 IF( ln_zps .AND. .NOT. ln_isfcav) & … … 270 269 IF( ln_zdfnpc ) CALL tra_npc( kstp ) ! update after fields by non-penetrative convection 271 270 CALL tra_nxt( kstp ) ! tracer fields at next time step 272 IF( ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations273 271 CALL eos ( tsa, rhd, rhop, fsdept_n(:,:,:) ) ! Time-filtered in situ density for hpg computation 274 272 IF( ln_zps .AND. .NOT. ln_isfcav) & … … 281 279 ELSE ! centered hpg (eos then time stepping) 282 280 IF ( .NOT. lk_dynspg_ts ) THEN ! eos already called in time-split case 283 IF( ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations284 281 CALL eos ( tsn, rhd, rhop, fsdept_n(:,:,:) ) ! now in situ density for hpg computation 285 282 IF( ln_zps .AND. .NOT. ln_isfcav) &
Note: See TracChangeset
for help on using the changeset viewer.