Changeset 179

Timestamp:

2004-11-05T15:02:27+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE124 : phasing of dimgout with NetCDF version and add output of e3t_ps and e3w_ps instead of e3tp and e3wp

File:

• trunk/NEMO/OPA_SRC/DOM/domwri_dimg.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/domwri_dimg.h90

@@ -295 +295 @@
          irecv(inum4) = irecv(inum4) + jpnij 
          !
-         ! e3
-         irec = irecv(inum4) + (narea - 1 )
-         WRITE(inum4,REC=irec) e3tp(:,:)
-         irecv(inum4) = irecv(inum4) + jpnij 
-       
-         irec = irecv(inum4) + (narea - 1 )
-         WRITE(inum4,REC=irec) e3wp(:,:)
-         irecv(inum4) = irecv(inum4) + jpnij 
-         !
-         ! e3u_ps e3v_ps (3D)
+         ! e3t_ps (3D)
+         DO jk=1,jpk
+             irec=irecv(inum4) + (jk -1 ) + jpk * (narea - 1 )
+             WRITE(inum4,REC=irec) e3t_ps(:,:,jk)
+         END DO
+         irecv(inum4) = irecv(inum4) + jpk * jpnij 
+
+         ! e3u_ps e3v_ps e3w_ps (3D)
          DO jk=1,jpk
              irec=irecv(inum4) + (jk -1 ) + jpk * (narea - 1 )
@@ -316 +314 @@
          END DO
          irecv(inum4) = irecv(inum4) + jpk * jpnij 
+
+         DO jk=1,jpk
+             irec=irecv(inum4) + (jk -1 ) + jpk * (narea - 1 )
+             WRITE(inum4,REC=irec) e3w_ps(:,:,jk)
+         END DO
+         irecv(inum4) = irecv(inum4) + jpk * jpnij 
+         ! 
          ! 
          ! gdep