Changeset 6464 for trunk/NEMOGCM/NEMO/OPA_SRC/step.F90
- Timestamp:
- 2016-04-11T13:09:42+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/step.F90
r6381 r6464 112 112 ! Update stochastic parameters and random T/S fluctuations 113 113 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 114 CALL sto_par( kstp ) ! Stochastic parameters 114 IF( ln_sto_eos ) CALL sto_par( kstp ) ! Stochastic parameters 115 IF( ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations 115 116 116 117 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 154 155 ! 155 156 IF( l_ldfslp ) THEN ! slope of lateral mixing 156 !!gm : why this here ????157 IF(ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations158 !!gm159 157 CALL eos( tsb, rhd, gdept_0(:,:,:) ) ! before in situ density 160 158 … … 183 181 IF(.NOT.ln_linssh ) CALL dom_vvl_sf_nxt( kstp ) ! after vertical scale factors 184 182 CALL wzv ( kstp ) ! now cross-level velocity 185 !!gm : why also here ????186 IF( ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations187 !!gm188 183 CALL eos ( tsn, rhd, rhop, gdept_n(:,:,:) ) ! now in situ density for hpg computation 189 184 … … 306 301 !!jc: That would be better, but see comment above 307 302 !! 308 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file 303 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file 304 IF( ln_sto_eos ) CALL sto_rst_write( kstp ) ! write restart file for stochastic parameters 309 305 310 306 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.