Changeset 216 for trunk/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2005-03-17T15:02:38+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE151 : New trends organization

File:

• trunk/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (6 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -15 +15 @@
    USE ice_oce         ! ice variables
    USE phycst          ! physical constants
-   USE ocfzpt          ! ???
+   USE ocfzpt          ! ocean freezing point
    USE ocesbc          ! surface thermohaline fluxes
    USE taumod          ! surface stress
-   USE flxrnf          ! ???
+   USE flxrnf          ! ocean runoffs
    USE zdfmxl          ! mixed layer
    USE daymod          ! calendar
@@ -28 +28 @@
    USE in_out_manager  ! I/O manager
    USE flx_oce         ! sea-ice/ocean forcings variables
+   USE diadimg         ! dimg direct access file format output
 
    IMPLICIT NONE
@@ -35 +36 @@
    PUBLIC dia_wri                 ! routines called by step.F90
    PUBLIC dia_wri_state
-   PUBLIC dia_wri_dimg            ! called by trd_mld (eg)
 
    !! * Module variables
@@ -43 +43 @@
       nid_V, nz_V, nh_V, ndim_V, ndim_hV,      &   ! grid_V file
       nid_W, nz_W, nh_W,                       &   ! grid_W file
-      ndex(1)                                            ! ???
+      ndex(1)                                      ! ???
    INTEGER, DIMENSION(jpi*jpj) ::   &
       ndex_hT, ndex_hU, ndex_hV
@@ -57 +57 @@
 CONTAINS
 
-#if defined key_fdir 
-   !!----------------------------------------------------------------------
-   !!   'key_fdir' :                              direct access output file
-   !!----------------------------------------------------------------------
-#   include "diawri_fdir.h90"
-
-#elif defined key_dimgout
+#if defined key_dimgout
    !!----------------------------------------------------------------------
    !!   dia_wri       : create the dimg direct access output file (mpp)
@@ -622 +616 @@
    END SUBROUTINE dia_wri_state
  
-   SUBROUTINE dia_wri_dimg( cd_name, cd_exper, ptab, klev, cd_type )
-   REAL(wp), DIMENSION(:,:,:) :: ptab
-   INTEGER :: klev
-   CHARACTER(LEN=80) :: cd_name, cd_exper,cd_type
-   print *, ' This print must never occur ', cd_name, cd_exper, ptab, klev, cd_type
-   PRINT *, ' this routine is here just for compilation '
-   
-   END SUBROUTINE dia_wri_dimg
 #endif
    !!======================================================================