- Timestamp:
- 2017-03-09T13:52:43+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/OPA_SRC/step.F90
- Property svn:keywords deleted
r5682 r7773 114 114 ! Update stochastic parameters and random T/S fluctuations 115 115 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 116 CALL sto_par( kstp ) ! Stochastic parameters 116 IF( ln_sto_eos ) CALL sto_par( kstp ) ! Stochastic parameters 117 IF( ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations 117 118 118 119 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 156 157 ! 157 158 IF( lk_ldfslp ) THEN ! slope of lateral mixing 158 IF(ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations159 159 CALL eos( tsb, rhd, gdept_0(:,:,:) ) ! before in situ density 160 160 IF( ln_zps .AND. .NOT. ln_isfcav) &
Note: See TracChangeset
for help on using the changeset viewer.