Changeset 1329 for trunk/NEMO/TOP_SRC/SED

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

Location:

trunk/NEMO/TOP_SRC/SED

Files:

• sed.F90 (modified) (1 diff)
• sedwri.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/SED/sed.F90

@@ -21 +21 @@
       rdt      =>   rdt         !: time step for the dynamics
 
-   USE daymod , ONLY :                 &
-      nyear     =>   nyear,   &  !: Current year
-      nmonth    =>   nmonth,  &  !: Current month
-      nday      =>   nday        !: Current day
+   USE daymod , ONLY :            &
+      nyear     =>   nyear    ,   & !: Current year
+      nmonth    =>   nmonth   ,   & !: Current month
+      nday      =>   nday     ,   & !: Current day
+      ndastp    =>   ndastp   ,   & !: time step date in year/month/day aammjj
+      nday_year =>   nday_year,   & !: curent day counted from jan 1st of the current year
+      adatrj    =>   adatrj         !: number of elapsed days since the begining of the run
+   !                                !: it is the accumulated duration of previous runs
+   !                                !: that may have been run with different time steps.
 
 

trunk/NEMO/TOP_SRC/SED/sedwri.F90

@@ -211 +211 @@
          ENDDO
 
-         !Fluxes
+         ! Fluxes
          DO jn = 1, jpdia2dsed
             cltra  = seddia2d(jn)   ! short title for 2D diagnostic
@@ -227 +227 @@
          WRITE(numsed,*) 'End of NetCDF sediment output file Initialization'
 
-      ELSE
-
-
-         ! Start writing data
-         ! ---------------------
-          DO jn = 1, jptrased
-             cltra = sedtrcd(jn) ! short title for 3D diagnostic
-             CALL histwrite( nised, cltra, it, trcsedi(:,:,:,jn), ndimt52, ndext52 )
-          END DO
-
-          DO jn = 1, jpdia3dsed
-             cltra = seddia3d(jn) ! short title for 3D diagnostic
-             CALL histwrite( nised, cltra, it, flxsedi3d(:,:,:,jn), ndimt52, ndext52 )
-          END DO
-
-          DO jn = 1, jpdia2dsed
+       ENDIF
+
+       ! Start writing data
+       ! ---------------------
+       DO jn = 1, jptrased
+          cltra = sedtrcd(jn) ! short title for 3D diagnostic
+          CALL histwrite( nised, cltra, it, trcsedi(:,:,:,jn), ndimt52, ndext52 )
+       END DO
+
+       DO jn = 1, jpdia3dsed
+          cltra = seddia3d(jn) ! short title for 3D diagnostic
+          CALL histwrite( nised, cltra, it, flxsedi3d(:,:,:,jn), ndimt52, ndext52 )
+       END DO
+
+       DO jn = 1, jpdia2dsed
              cltra = seddia2d(jn) ! short title for 2D diagnostic
              CALL histwrite( nised, cltra, it, flxsedi2d(:,:,jn  ), ndimt51, ndext51 )
-          END DO
-
-      ENDIF
-
-! 3. Closing all files
-! --------------------
+       END DO
+
+
+      ! 3. Closing all files
+      ! --------------------
       IF( kt == nitsedend  ) THEN
           CALL histclo( nised )