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/OPA_SRC/DIA/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/OPA_SRC/DIA/diawri.F90

    r4990 r5282  
    4343   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    4444   USE in_out_manager  ! I/O manager 
    45    USE diadimg         ! dimg direct access file format output 
    4645   USE iom 
    4746   USE ioipsl 
     
    9796  END FUNCTION dia_wri_alloc 
    9897 
    99 #if defined key_dimgout 
    100    !!---------------------------------------------------------------------- 
    101    !!   'key_dimgout'                                      DIMG output file 
    102    !!---------------------------------------------------------------------- 
    103 #   include "diawri_dimg.h90" 
    104  
    105 #else 
    10698   !!---------------------------------------------------------------------- 
    10799   !!   Default option                                   NetCDF output file 
    108100   !!---------------------------------------------------------------------- 
    109 # if defined key_iomput 
     101#if defined key_iomput 
    110102   !!---------------------------------------------------------------------- 
    111103   !!   'key_iomput'                                        use IOM library 
     
    418410      ! Define frequency of output and means 
    419411      zdt = rdt 
    420       IF( nacc == 1 ) zdt = rdtmin 
    421412      IF( ln_mskland )   THEN   ;   clop = "only(x)"   ! put 1.e+20 on land (very expensive!!) 
    422413      ELSE                      ;   clop = "x"         ! no use of the mask value (require less cpu time) 
     
    762753      IF( lk_vvl ) THEN 
    763754         zw3d(:,:,:) = ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 
    764          CALL histwrite( nid_T, "vovvle3t", it, fse3t_n (:,:,:) , ndim_T , ndex_T  )   ! level thickness 
     755         CALL histwrite( nid_T, "vovvle3t", it, fse3t_n(:,:,:) , ndim_T , ndex_T  )   ! level thickness 
    765756         CALL histwrite( nid_T, "vovvldep", it, fsdept_n(:,:,:) , ndim_T , ndex_T  )   ! t-point depth 
    766757         CALL histwrite( nid_T, "vovvldef", it, zw3d             , ndim_T , ndex_T  )   ! level thickness deformation 
     
    914905      ! 
    915906   END SUBROUTINE dia_wri 
    916 # endif 
    917  
    918 #endif 
     907#endif 
     908 
     909 
    919910 
    920911   SUBROUTINE dia_wri_state( cdfile_name, kt ) 
     
    10351026      ! ----------------- 
    10361027      CALL histclo( id_i ) 
    1037 #if ! defined key_iomput && ! defined key_dimgout 
     1028#if ! defined key_iomput 
    10381029      IF( ninist /= 1  ) THEN 
    10391030         CALL histclo( nid_T ) 
Note: See TracChangeset for help on using the changeset viewer.