- Timestamp:
- 2017-09-14T17:52:02+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/DOM/phycst.F90
r8233 r8522 91 91 REAL(wp), PUBLIC :: r1_rhoic !: 1 / rhoic 92 92 REAL(wp), PUBLIC :: r1_rhosn !: 1 / rhosn 93 REAL(wp), PUBLIC :: r1_cpic !: 1 / cpic 93 94 #endif 94 95 !!---------------------------------------------------------------------- … … 159 160 r1_rhoic = 1._wp / rhoic 160 161 r1_rhosn = 1._wp / rhosn 162 r1_cpic = 1._wp / cpic 161 163 #endif 162 164 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.