Changeset 846 for branches/dev_001_GM

Timestamp:

2008-03-13T14:16:39+01:00 (16 years ago)

Author:

cetlod

Message:

change the starting/ending LOBSTER do loop indices and change jptra to jp_lobster, see ticket:84

Location:

branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER

Files:

• sms_lobster1.h90 (modified) (1 diff)
• trcctl.lobster1.h90 (modified) (3 diffs)
• trcini_lobster.F90 (modified) (1 diff)

branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/sms_lobster1.h90

@@ -65 +65 @@
    REAL(wp) ::   fdbod    !: zooplankton mortality fraction that goes to detritus
 
-   REAL(wp), DIMENSION(jpk,jptra) ::   remdmp   !: depth dependant damping coefficient of passive tracers 
+   REAL(wp), DIMENSION(jpk,jp_lobster) ::   remdmp   !: depth dependant damping coefficient of passive tracers 
    
 

branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcctl.lobster1.h90

@@ -17 +17 @@
       ! Check number of tracers
       ! -----------------------
-      IF (jptra /= 6) THEN 
+      IF (jp_lobster /= 6) THEN 
           IF (lwp) THEN 
               WRITE (numout,*) ' ===>>>> : w a r n i n g '
               WRITE (numout,*) ' =======   ============= '
               WRITE (numout,*)                             &
-              &   ' STOP, change jptra to 6 in '           &
+              &   ' STOP, change jp_lobster to 6 in '           &
               &   ,'parameter.passivetrc.lobster1.h '  
           END IF 
@@ -55 +55 @@
             WRITE (numout,*) ' =======   ============= '
             WRITE (numout,*) ' we force tracer names'
-            DO jn = 1, jptra
+            DO jn = jp_lob0, jp_lob1
                WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn)
             END DO
@@ -63 +63 @@
 
       ! Check tracer units
-      DO jn = 1, jptra
+      DO jn = jp_lob0, jp_lob1
          IF( ctrcun(jn) /= 'mmole-N/m3') THEN
             ctrcun(jn)='mmole-N/m3'

branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

@@ -60 +60 @@
       ! -----------------------------------------------------------------
 
-      DO jn = 1, jptra
+      DO jn = jp_lob0, jp_lob1
          remdmp(:,jn) = tminr
       END DO