Changeset 1329 for trunk/NEMO/TOP_SRC/trcdia.F90

Timestamp:

2009-02-20T11:32:52+01:00 (15 years ago)

Author:

cetlod

Message:

update modules to take into account the mask land points in NetCDF outputs, see ticket:322

File:

• trunk/NEMO/TOP_SRC/trcdia.F90 (modified) (6 diffs)

trunk/NEMO/TOP_SRC/trcdia.F90

@@ -40 +40 @@
    INTEGER  ::   ndimt50   !: number of ocean points in index array
    INTEGER  ::   ndimt51   !: number of ocean points in index array
-   REAL(wp) ::   zjulian   !: ????   not DOCTOR !
+   REAL(wp) ::   xjulian   !: ????   not DOCTOR !
    INTEGER , DIMENSION (jpij*jpk) ::   ndext50   !: integer arrays for ocean 3D index
    INTEGER , DIMENSION (jpij)     ::   ndext51   !: integer arrays for ocean surface index
@@ -151 +151 @@
 
          ! Compute julian date from starting date of the run
-         CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian )
-         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment
+         CALL ymds2ju( nyear, nmonth, nday, rdt, xjulian )
+         xjulian = xjulian - adatrj   !   set calendar origin to the beginning of the experiment
          IF(lwp)WRITE(numout,*)' '  
          IF(lwp)WRITE(numout,*)' Date 0 used :', nittrc000                         &
             &                 ,' YEAR ', nyear, ' MONTH ', nmonth, ' DAY ', nday   &
-            &                 ,'Julian day : ', zjulian    
+            &                 ,'Julian day : ', xjulian    
          IF(lwp) WRITE(numout,*) ' indexes of zoom = ', iimi, iima, ijmi, ijma,  &
             &                    ' limit storage in depth = ', ipk
@@ -168 +168 @@
          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,     &
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,         & 
-            &          0, zjulian, zdt, nhorit5, nit5 , domain_id=nidom)
+            &          0, xjulian, zdt, nhorit5, nit5 , domain_id=nidom)
 ! Vertical grid for tracer : gdept
          CALL histvert( nit5, 'deptht', 'Vertical T levels', &
@@ -298 +298 @@
                CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,       &
                   &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,   &
-                  &          0, zjulian, rdt, nhorit6(jn),           &
+                  &          0, xjulian, rdt, nhorit6(jn),           &
                   &          nit6(jn) , domain_id=nidom )
 
@@ -536 +536 @@
          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,             &
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,         &
-            &          0, zjulian, zdt, nhoritd, nitd , domain_id=nidom )
+            &          0, xjulian, zdt, nhoritd, nitd , domain_id=nidom )
 
          ! Vertical grid for 2d and 3d arrays
@@ -682 +682 @@
          CALL histbeg(clhstnam, jpi, glamt, jpj, gphit,      &
             &    iimi, iima-iimi+1, ijmi, ijma-ijmi+1,          &
-            &    0, zjulian, rdt, nhoritb, nitb , domain_id=nidom)
+            &    0, xjulian, rdt, nhoritb, nitb , domain_id=nidom)
          ! Vertical grid for biological trends
          CALL histvert(nitb, 'deptht', 'Vertical T levels',  &