Changeset 1255 for trunk/NEMO/TOP_SRC/LOBSTER/trcctl_lobster.F90

Timestamp:

2009-01-13T11:20:17+01:00 (15 years ago)

Author:

cetlod

Message:

minor modifications in all top models, see ticket:299

File:

• trunk/NEMO/TOP_SRC/LOBSTER/trcctl_lobster.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/LOBSTER/trcctl_lobster.F90

@@ -33 +33 @@
       !! ** Purpose :   control the cpp options, namelist and files 
       !!----------------------------------------------------------------------
-      INTEGER :: jn
+      INTEGER :: jl, jn
 
       IF(lwp) WRITE(numout,*)
@@ -78 +78 @@
             WRITE (numout,*) ' =======   ============= '
             WRITE (numout,*) ' we force tracer names'
-            DO jn = jp_lob0, jp_lob1
+            DO jl = 1, jp_lobster
+               jn = jp_lob0 + jl - 1
                WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn)
             END DO
@@ -86 +87 @@
 
       ! Check tracer units
-      DO jn = jp_lob0, jp_lob1
+      DO jl = 1, jp_lobster
+         jn = jp_lob0 + jl - 1
          IF( ctrcun(jn) /= 'mmole-N/m3') THEN
             ctrcun(jn) = 'mmole-N/m3'