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

Timestamp:

2009-05-23T10:16:38+02:00 (15 years ago)

Author:

cetlod

Message:

distribution of iom_put in TOP routines, see ticket:437

File:

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

trunk/NEMO/TOP_SRC/trcdia.F90

@@ -11 +11 @@
    !!                  !  2008-05 (C. Ethe re-organization)
    !!----------------------------------------------------------------------
-#if defined key_top
+#if defined key_top && ! defined key_iomput
    !!----------------------------------------------------------------------
    !!   'key_top'                                                TOP models
@@ -29 +29 @@
    USE lib_mpp
    USE ioipsl
-   USE iom
 
    IMPLICIT NONE
@@ -70 +69 @@
 CONTAINS
 
-   SUBROUTINE trc_dia( kt, kindic )  
+   SUBROUTINE trc_dia( kt )  
       !!---------------------------------------------------------------------
       !!                     ***  ROUTINE trc_dia  ***
@@ -76 +75 @@
       !! ** Purpose :   output passive tracers fields 
       !!---------------------------------------------------------------------
-      INTEGER, INTENT( in ) :: kt, kindic
+      INTEGER, INTENT( in ) :: kt
+      INTEGER               :: kindic
       !!---------------------------------------------------------------------
       
@@ -117 +117 @@
       ! Initialisation
       ! --------------
-
-      CALL iom_setkt( kt + ndttrc - 1 )
 
       ! local variable for debugging
@@ -212 +210 @@
          cltra = ctrcnm(jn)      ! short title for tracer
          IF( lutsav(jn) ) CALL histwrite( nit5, cltra, it, trn(:,:,:,jn), ndimt50, ndext50 )
-         CALL iom_put( ctrcnm(jn), trn(:,:,:,jn) )
       END DO
 
@@ -219 +216 @@
       IF( kt == nitend .OR. kindic < 0 )   CALL histclo( nit5 )
       !
-      CALL iom_setkt( kt )
 
    END SUBROUTINE trcdit_wr
@@ -257 +253 @@
       ! -----------------
       
-      CALL iom_setkt( kt + ndttrc - 1 )
 
       ! local variable for debugging
@@ -445 +440 @@
             END DO
          END IF
-         CALL iom_put( ctrcnm(jn), trn(:,:,:,jn) )
       END DO
 
@@ -456 +450 @@
       ENDIF
       !
-      CALL iom_setkt( kt )
 
    END SUBROUTINE trcdid_wr
@@ -500 +493 @@
       ! Initialisation
       ! --------------
-   
-      CALL iom_setkt( kt + ndttrc - 1 )
       
       ! local variable for debugging
@@ -597 +588 @@
          cltra = ctrc3d(jl)   ! short title for 3D diagnostic
          CALL histwrite( nitd, cltra, it, trc3d(:,:,:,jl), ndimt50 ,ndext50)
-         CALL iom_put( cltra, trc3d(:,:,:,jl) )
       END DO
 
@@ -604 +594 @@
          cltra = ctrc2d(jl)   ! short title for 2D diagnostic
          CALL histwrite(nitd, cltra, it, trc2d(:,:,jl), ndimt51  ,ndext51)
-         CALL iom_put( cltra, trc2d(:,:,jl) )
       END DO
 
@@ -611 +600 @@
       IF( kt == nitend .OR. kindic < 0 )   CALL histclo(nitd)
       !
-      CALL iom_setkt( kt )
 
    END SUBROUTINE trcdii_wr
@@ -657 +645 @@
       ! --------------
 
-      CALL iom_setkt( kt + ndttrc - 1 )
       
       ! local variable for debugging
@@ -735 +722 @@
          cltra = ctrbio(jl)  ! short title for biological diagnostic
          CALL histwrite(nitb, cltra, it, trbio(:,:,:,jl), ndimt50,ndext50)
-         CALL iom_put( cltra, trbio(:,:,:,jl) )
       END DO
 
@@ -742 +728 @@
       IF( kt == nitend .OR. kindic < 0 )   CALL histclo( nitb )
       !
-      CALL iom_setkt( kt )
 
    END SUBROUTINE trcdib_wr
@@ -759 +744 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE trc_dia                      ! Empty routine   
+   SUBROUTINE trc_dia( kt )                      ! Empty routine   
+      INTEGER, INTENT(in) :: kt
    END SUBROUTINE trc_dia