Changeset 3759 for branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES

Timestamp:

2013-01-20T13:54:39+01:00 (11 years ago)

Author:

cetlod

Message:

dev_r3438_LOCEAN15_PISLOB : Minor bug correction + update of namelists for GYRE_PISCES configuration

Location:

branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES

Files:

• P4Z/p4zsed.F90 (modified) (1 diff)
• trcini_pisces.F90 (modified) (1 diff)

branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90

@@ -362 +362 @@
       IF( ln_diatrc ) THEN
          zfact = 1.e+3 * rfact2r
-         IF( lk_iomput .AND. jnt == nrdttrc ) THEN
-            CALL iom_put( "Nfix"  , znitrpot(:,:,:) * nitrfix * rno3 * zfact * tmask(:,:,:) )  ! nitrogen fixation 
-            CALL iom_put( "Sdenit", zwork4(:,:)               * rno3 * zfact * tmask(:,:,1) )  ! Nitrate reduction in the sediments
+         IF( lk_iomput ) THEN 
+            IF( jnt == nrdttrc ) THEN
+               CALL iom_put( "Nfix"  , znitrpot(:,:,:) * nitrfix * rno3 * zfact * tmask(:,:,:) )  ! nitrogen fixation 
+               CALL iom_put( "Sdenit", zwork4(:,:)               * rno3 * zfact * tmask(:,:,1) )  ! Nitrate reduction in the sediments
+            ENDIF
          ELSE
             trc2d(:,:,jp_pcs0_2d + 12) = znitrpot(:,:,1) * nitrfix * zfact * fse3t(:,:,1) * tmask(:,:,1)

branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

@@ -43 +43 @@
       !!----------------------------------------------------------------------
 
-      IF( lk_pisces ) THEN  ;   CALL p4z_ini   !  PISCES
-      ELSE                  ;   CALL p2z_ini   !  LOBSTER
+      IF( lk_p4z ) THEN  ;   CALL p4z_ini   !  PISCES
+      ELSE               ;   CALL p2z_ini   !  LOBSTER
       ENDIF