Changeset 239 for trunk/NEMO/OPA_SRC/DIA/diaptr.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/diaptr.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -345 +345 @@
    END SUBROUTINE dia_ptr_init
 
-#if defined key_fdir
-   !!---------------------------------------------------------------------
-   !!   'key_fdir'                                      direct access file
-   !!---------------------------------------------------------------------
-
-   SUBROUTINE dia_ptr_wri( kt )
-      !!---------------------------------------------------------------------
-      !!                ***  ROUTINE dia_ptr_wri  ***
-      !!
-      !! ** Purpose :   output of poleward fluxes 
-      !! 
-      !! ** Method  :   NetCDF file
-      !!
-      !! History :
-      !!   9.0  !  03-09  (G. Madec)  Original code  
-      !!---------------------------------------------------------------------- 
-      !! * Arguments
-      INTEGER, INTENT(in) ::   kt   ! ocean time-step index
-      REAL(wp), DIMENSION(jpj) ::   zphi, zfoo
-      !!---------------------------------------------------------------------- 
-
-      IF( kt == nit000 ) THEN
-
-         ! Reference latitude
-         ! ------------------
-         !                                           ! =======================
-         IF( cp_cfg == "orca" ) THEN                 !   ORCA configurations
-            !                                        ! =======================
-
-            IF( jp_cfg == 05  )   iline = 192   ! i-line that passes near the North Pole
-            IF( jp_cfg == 025 )   iline = 384   ! i-line that passes near the North Pole
-            IF( jp_cfg == 2   )   iline =  48   ! i-line that passes near the North Pole
-            IF( jp_cfg == 4   )   iline =  24   ! i-line that passes near the North Pole
- 
-            zphi(:) = 0.e0   
-            DO ji = mi0(iline), mi1(iline)
-               zphi(:) = gphiv(ji,:)         ! if iline is in the local domain
-            END DO
-            ! provide the correct zphi to all local domains
-            IF( lk_mpp )   CALL mpp_sum( zphi, jpj )        
-            ! introduce arbitray northernmost grid point to avoid netcdf error
-            DO jj=mj0(jpjglo), mj1(jpjglo)
-               zphi(jj) = 2*zphi(jj-1)-zphi(jj-2)
-            ENDDO
-
-            !                                        ! =======================
-         ELSE                                        !   OTHER configurations
-            !                                        ! =======================
-            zphi(:) = gphiv(1,:)             ! assume lat/lon coordinate, select the first i-line
-            !
-         ENDIF
- 
-         ! open the output file         
-         CALL ctlopn( numptr, 'opaptr.output', 'UNKNOWN', 'UNFORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 )
-
-         ! header of output
-         WRITE( numptr ) cexper, no, zdt, nf_ptr, jpj, jpk, zphi
-
-      ENDIF
-
-      IF( MOD( kt, nf_ptr ) == 0 ) THEN
-            IF(lwp) WRITE( numptr ) kt, tn_jk, sn_jk, v_msf,              &
-# if defined key_diaeiv
-               &                    pht_eiv, pst_eiv, v_msf_eiv,          &
-# endif
-               &                    pht_adv, pht_ldf, pst_adv, pst_ldf
-      ENDIF
-
-      IF( kt == nitend )   CLOSE( numptr )
-
-   END SUBROUTINE dia_ptr_wri
-
-#else
    !!---------------------------------------------------------------------
    !!   Default option :                                       NetCDF file
@@ -598 +525 @@
    END SUBROUTINE dia_ptr_wri
 
-#endif
-
    !!======================================================================
 END MODULE diaptr