Changeset 2240 for branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domrea.F90
- Timestamp:
- 2010-10-13T10:48:48+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domrea.F90
r2053 r2240 88 88 REAL(wp), DIMENSION(jpi,jpj) :: & 89 89 zprt 90 #if ! defined key_zco91 90 INTEGER :: ik 92 #endif93 91 !!---------------------------------------------------------------------- 94 92 … … 185 183 ENDDO 186 184 ENDDO 187 188 #if ! defined key_zco189 185 190 186 IF( ln_sco ) THEN ! s-coordinate … … 255 251 256 252 ENDIF 257 # endif 253 258 254 IF( ln_zco ) THEN 259 255 ! Vertical coordinates and scales factors
Note: See TracChangeset
for help on using the changeset viewer.