Changeset 239 for trunk/NEMO/OPA_SRC/DIA/diagap.F90

Timestamp:

2005-03-22T18:55:20+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE172 : remove all direct acces modules and the related cpp key key_fdir

File:

• trunk/NEMO/OPA_SRC/DIA/diagap.F90 (modified) (7 diffs)

trunk/NEMO/OPA_SRC/DIA/diagap.F90

@@ -34 +34 @@
       ngap  ,                 &  ! time step frequency
       nprg                       ! switch for control print
-#if ! defined key_fdir
    ! netcdf files and index common
    INTEGER ::   &
       nhoridg, ndepidg,             &
       ndex(1)
-#endif
    REAL(wp) ::     &
       vol                        ! total ocean volume
@@ -76 +74 @@
       !!----------------------------------------------------------------------
       !! * Modules used
-#if ! defined key_fdir
       USE ioipsl
-#endif
+
       !! * Arguments
       INTEGER, INTENT(in) ::   kt           ! ocean time-step index
@@ -151 +148 @@
          IF(lwp) WRITE(numout,*) '     basin volume : ',vol*1.e-9, '  km3'
 
-#if defined key_fdir
-      CALL ctlopn( numgap, 'differences.diag', 'UNKNOWN', 'UNFORMATTED', 'SEQUENTIAL', 1,numout,lwp,1)
-#else
-
          ! OPEN netcdf file 
 
@@ -195 +188 @@
           CALL histend( numgap )
           ndex(1) = 0
-#endif
       ENDIF
 
@@ -260 +252 @@
           ! Output in file numgap
 
-#if defined key_fdir
-          IF(lwp) WRITE (numgap) no, kt, jpk, tdtag, sdtag, tmodg, smodg
-#else
-
           ! Netcdf write
 
@@ -273 +261 @@
              CALL histwrite( numgap, "mosalimo", it, smodg, jpk, ndex )
           END IF
-#endif
       ENDIF
 
@@ -279 +266 @@
 
       IF( kt == nitend ) THEN
-#if defined key_fdir
-          CLOSE( numgap )             ! direct acces file
-#else
-          CALL histclo( numgap )      !   Netcdf file
-#endif    
+         CALL histclo( numgap )      !   Netcdf file
       ENDIF