Changeset 199 for trunk/NEMO/OPA_SRC/DOM
- Timestamp:
- 2004-12-22T16:49:02+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domwri_dimg.h90
r179 r199 49 49 INTEGER, DIMENSION(11:15) :: irecv ! index of this array will be inumxxx 50 50 REAL(wp) :: zdate0 51 REAL(wp), DIMENSION(jpi,jpj) :: & 52 zprt ! temporary array for bathymetry 53 51 54 CHARACTER (len=21) :: & 52 55 clnam0 = 'mesh_mask', & ! filename (mesh and mask informations) … … 242 245 WRITE(inum3,REC=irec) ff(:,:) 243 246 irecv(inum3) = irecv(inum3) + jpnij 244 245 247 ! 248 ! mbathy 249 ! note that mbathy has been modified in dommsk or in solver. 250 ! it is the number of non-zero "w" levels in the water, and the minimum 251 ! value (on land) is 2. We define zprt as the number of "T" points in the ocean 252 ! at any location, and zero on land. 253 ! 254 zprt = tmask(:,:,1)*(mbathy-1) 255 irec = irecv(inum4) + (narea - 1 ) 256 WRITE(inum4,REC=irec) zprt(:,:) 257 irecv(inum4) = irecv(inum4) + jpnij 258 246 259 #if defined key_s_coord 247 260 !
Note: See TracChangeset
for help on using the changeset viewer.