Changeset 1327 for trunk/NEMO/OFF_SRC/DOM/domrea.F90
- Timestamp:
- 2009-02-20T11:11:52+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/domrea.F90
r1152 r1327 92 92 93 93 REAL(wp), DIMENSION(jpi,jpj) :: & 94 zprt = 0.94 zprt 95 95 #if ! defined key_zco 96 96 INTEGER :: ik … … 103 103 104 104 105 zprt(:,:) = 0. 105 106 106 107 SELECT CASE (nmsh) … … 183 184 184 185 CALL iom_get( inum4, jpdom_data, 'mbathy', zprt ) 185 mbathy(:,:) = zprt(:,:) * tmask(:,:,1) + 1 186 186 187 DO jj = 1, jpj 188 DO ji = 1, jpi 189 mbathy(ji,jj) = zprt(ji,jj) * tmask(ji,jj,1) + 1 190 ENDDO 191 ENDDO 187 192 188 193 ! Vertical coordinates and scales factors
Note: See TracChangeset
for help on using the changeset viewer.