Changeset 14404
- Timestamp:
- 2021-02-05T13:46:11+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90
r14283 r14404 957 957 IF ( lpyc(ji,jj) ) THEN 958 958 ! Pycnocline scales 959 zsc_wth_pyc(ji,jj) = -0. 2 * zwb0(ji,jj) * zdt_bl(ji,jj) / zdb_bl(ji,jj)960 zsc_ws_pyc(ji,jj) = -0. 2 * zwb0(ji,jj) * zds_bl(ji,jj) / zdb_bl(ji,jj)959 zsc_wth_pyc(ji,jj) = -0.003 * zwstrc(ji,jj) * ( 1.0 - zdh(ji,jj) /zhbl(ji,jj) ) * zdt_ml(ji,jj) 960 zsc_ws_pyc(ji,jj) = -0.003 * zwstrc(ji,jj) * ( 1.0 - zdh(ji,jj) /zhbl(ji,jj) ) * zds_ml(ji,jj) 961 961 ENDIF 962 962 ELSE … … 982 982 & * ( 1.0 - EXP ( -15.0 * ( 1.0 - zznd_ml ) ) ) 983 983 END DO 984 ! 984 ! 985 ! may need to comment out lpyc block 985 986 IF ( lpyc(ji,jj) ) THEN 986 987 ! pycnocline
Note: See TracChangeset
for help on using the changeset viewer.