- Timestamp:
- 2016-11-21T10:38:43+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/step.F90
r7277 r7278 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 … … 305 300 !!jc: That would be better, but see comment above 306 301 !! 307 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file 302 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file 303 IF( ln_sto_eos ) CALL sto_rst_write( kstp ) ! write restart file for stochastic parameters 308 304 309 305 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.