Changeset 179 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-11-05T15:02:27+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domwri_dimg.h90
r107 r179 295 295 irecv(inum4) = irecv(inum4) + jpnij 296 296 ! 297 ! e3 298 irec = irecv(inum4) + (narea - 1 ) 299 WRITE(inum4,REC=irec) e3tp(:,:) 300 irecv(inum4) = irecv(inum4) + jpnij 301 302 irec = irecv(inum4) + (narea - 1 ) 303 WRITE(inum4,REC=irec) e3wp(:,:) 304 irecv(inum4) = irecv(inum4) + jpnij 305 ! 306 ! e3u_ps e3v_ps (3D) 297 ! e3t_ps (3D) 298 DO jk=1,jpk 299 irec=irecv(inum4) + (jk -1 ) + jpk * (narea - 1 ) 300 WRITE(inum4,REC=irec) e3t_ps(:,:,jk) 301 END DO 302 irecv(inum4) = irecv(inum4) + jpk * jpnij 303 304 ! e3u_ps e3v_ps e3w_ps (3D) 307 305 DO jk=1,jpk 308 306 irec=irecv(inum4) + (jk -1 ) + jpk * (narea - 1 ) … … 316 314 END DO 317 315 irecv(inum4) = irecv(inum4) + jpk * jpnij 316 317 DO jk=1,jpk 318 irec=irecv(inum4) + (jk -1 ) + jpk * (narea - 1 ) 319 WRITE(inum4,REC=irec) e3w_ps(:,:,jk) 320 END DO 321 irecv(inum4) = irecv(inum4) + jpk * jpnij 322 ! 318 323 ! 319 324 ! gdep
Note: See TracChangeset
for help on using the changeset viewer.