New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5282 for branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/SAS_SRC/diawri.F90 – NEMO

Ignore:
Timestamp:
2015-05-18T17:19:50+02:00 (9 years ago)
Author:
diovino
Message:

Dev. branch CMCC4_simplification ticket #1456

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/SAS_SRC/diawri.F90

    r4292 r5282  
    4040   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    4141   USE in_out_manager  ! I/O manager 
    42    USE diadimg         ! dimg direct access file format output 
    4342   USE diaar5, ONLY :   lk_diaar5 
    4443   USE iom 
     
    8584  END FUNCTION dia_wri_alloc 
    8685 
    87 #if defined key_dimgout 
    88    !!---------------------------------------------------------------------- 
    89    !!   'key_dimgout'                                      DIMG output file 
    90    !!---------------------------------------------------------------------- 
    91 #   include "diawri_dimg.h90" 
    92  
    93 #else 
    9486   !!---------------------------------------------------------------------- 
    9587   !!   Default option                                   NetCDF output file 
    9688   !!---------------------------------------------------------------------- 
    97 # if defined key_iomput 
     89#if defined key_iomput 
    9890   !!---------------------------------------------------------------------- 
    9991   !!   'key_iomput'                                        use IOM library 
     
    164156      ! Define frequency of output and means 
    165157      zdt = rdt 
    166       IF( nacc == 1 ) zdt = rdtmin 
    167158      IF( ln_mskland )   THEN   ;   clop = "only(x)"   ! put 1.e+20 on land (very expensive!!) 
    168159      ELSE                      ;   clop = "x"         ! no use of the mask value (require less cpu time) 
     
    338329      ! 
    339330   END SUBROUTINE dia_wri 
    340 # endif 
    341  
    342331#endif 
     332 
     333 
    343334 
    344335   SUBROUTINE dia_wri_state( cdfile_name, kt ) 
     
    435426      ! ----------------- 
    436427      CALL histclo( id_i ) 
    437 #if ! defined key_iomput && ! defined key_dimgout 
     428#if ! defined key_iomput 
    438429      IF( ninist /= 1  ) THEN 
    439430         CALL histclo( nid_T ) 
Note: See TracChangeset for help on using the changeset viewer.