Changeset 3124 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90

Timestamp:

2011-11-16T10:25:18+01:00 (12 years ago)

Author:

cetlod

Message:

dev_NEMO_MERGE_2011/NEMOGCM:minor modifications on the use of nittrc000 + style corrections

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -337 +337 @@
       !!---------------------------------------------------------------------
 
-      ! Compute dust at nit000 or only if there is more than 1 time record in dust file
+      ! Compute dust at nittrc000 or only if there is more than 1 time record in dust file
       IF( ln_dust ) THEN
-         IF( kt == nit000 .OR. ( kt /= nit000 .AND. ntimes_dust > 1 ) ) THEN
+         IF( kt == nittrc000 .OR. ( kt /= nittrc000 .AND. ntimes_dust > 1 ) ) THEN
             CALL fld_read( kt, 1, sf_dust )
             dust(:,:) = sf_dust(1)%fnow(:,:,1)
@@ -346 +346 @@
 
       ! N/P and Si releases due to coastal rivers
-      ! Compute river at nit000 or only if there is more than 1 time record in river file
+      ! Compute river at nittrc000 or only if there is more than 1 time record in river file
       ! -----------------------------------------
       IF( ln_river ) THEN
-         IF( kt == nit000 .OR. ( kt /= nit000 .AND. ntimes_riv > 1 ) ) THEN
+         IF( kt == nittrc000 .OR. ( kt /= nittrc000 .AND. ntimes_riv > 1 ) ) THEN
             CALL fld_read( kt, 1, sf_riverdic )
             CALL fld_read( kt, 1, sf_riverdoc )
@@ -362 +362 @@
       ENDIF
 
-      ! Compute N deposition at nit000 or only if there is more than 1 time record in N deposition file
+      ! Compute N deposition at nittrc000 or only if there is more than 1 time record in N deposition file
       IF( ln_ndepo ) THEN
-         IF( kt == nit000 .OR. ( kt /= nit000 .AND. ntimes_ndep > 1 ) ) THEN
+         IF( kt == nittrc000 .OR. ( kt /= nittrc000 .AND. ntimes_ndep > 1 ) ) THEN
             CALL fld_read( kt, 1, sf_ndepo )
             DO jj = 1, jpj
@@ -384 +384 @@
       !!
       !! ** method  :   read the files and compute the budget
-      !!                called at the first timestep (nit000)
+      !!                called at the first timestep (nittrc000)
       !!
       !! ** input   :   external netcdf files