Changeset 1119 for trunk/NEMO/TOP_SRC/trcdia.F90

Timestamp:

2008-06-20T17:17:41+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

• trunk/NEMO/TOP_SRC/trcdia.F90 (modified) (6 diffs)

trunk/NEMO/TOP_SRC/trcdia.F90

@@ -23 +23 @@
    USE oce_trc
    USE trc
+   USE trp_trc
    USE dianam    ! build name of file (routine)
    USE in_out_manager  ! I/O manager
@@ -77 +78 @@
       
       CALL trcdit_wr( kt, kindic )      ! outputs for tracer concentration
-      
-
       CALL trcdid_wr( kt, kindic )      ! outputs for dynamical trends
-
-      
       CALL trcdii_wr( kt, kindic )      ! outputs for additional arrays
-
-      
       CALL trcdib_wr( kt, kindic )      ! outputs for biological trends
 
@@ -437 +432 @@
                IF( jl == jpdiatrc )   WRITE (cltra,'("SBC_",a)') ctrcnm(jn)      ! surface boundary conditions
                !
-               CALL histwrite(nit6(jn), cltra, it, trtrd(:,:,:,ikeep(jn),jl)   &
-                  &          ,ndimt50, ndext50)
+               CALL histwrite(nit6(jn), cltra, it, trtrd(:,:,:,ikeep(jn),jl),ndimt50, ndext50)
             END DO
          END IF
@@ -562 +556 @@
          ! more 2D horizontal arrays
          DO jn = 1, jpdia2d
-            cltra=ctrc2d(jn)    ! short title for 2D diagnostic
-            cltral=ctrc2l(jn)   ! long title for 2D diagnostic
-            cltrau=ctrc2u(jn)   ! UNIT for 2D diagnostic
+            cltra  = ctrc2d(jn)    ! short title for 2D diagnostic
+            cltral = ctrc2l(jn)   ! long title for 2D diagnostic
+            cltrau = ctrc2u(jn)   ! UNIT for 2D diagnostic
             CALL histdef( nitd, cltra, cltral, cltrau, jpi, jpj, nhoritd,  &
                &          1, 1, 1,  -99, 32, clop, zsto, zout )
@@ -591 +585 @@
       DO jn = 1, jpdia3d
          cltra = ctrc3d(jn)   ! short title for 3D diagnostic
-         CALL histwrite( nitd, cltra, it, trc3d(:,:,:,jn), ndimt50  &
-            &           ,ndext50)
+         CALL histwrite( nitd, cltra, it, trc3d(:,:,:,jn), ndimt50 ,ndext50)
       END DO
 
@@ -598 +591 @@
       DO jn = 1, jpdia2d
          cltra = ctrc2d(jn)   ! short title for 2D diagnostic
-         CALL histwrite(nitd, cltra, it, trc2d(:,:,jn), ndimt51    &
-            &   ,ndext51)
+         CALL histwrite(nitd, cltra, it, trc2d(:,:,jn), ndimt51  ,ndext51)
       END DO