- Timestamp:
- 2015-05-18T17:19:50+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/SAS_SRC/diawri.F90
r4292 r5282 40 40 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 41 41 USE in_out_manager ! I/O manager 42 USE diadimg ! dimg direct access file format output43 42 USE diaar5, ONLY : lk_diaar5 44 43 USE iom … … 85 84 END FUNCTION dia_wri_alloc 86 85 87 #if defined key_dimgout88 !!----------------------------------------------------------------------89 !! 'key_dimgout' DIMG output file90 !!----------------------------------------------------------------------91 # include "diawri_dimg.h90"92 93 #else94 86 !!---------------------------------------------------------------------- 95 87 !! Default option NetCDF output file 96 88 !!---------------------------------------------------------------------- 97 # 89 #if defined key_iomput 98 90 !!---------------------------------------------------------------------- 99 91 !! 'key_iomput' use IOM library … … 164 156 ! Define frequency of output and means 165 157 zdt = rdt 166 IF( nacc == 1 ) zdt = rdtmin167 158 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 168 159 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) … … 338 329 ! 339 330 END SUBROUTINE dia_wri 340 # endif341 342 331 #endif 332 333 343 334 344 335 SUBROUTINE dia_wri_state( cdfile_name, kt ) … … 435 426 ! ----------------- 436 427 CALL histclo( id_i ) 437 #if ! defined key_iomput && ! defined key_dimgout428 #if ! defined key_iomput 438 429 IF( ninist /= 1 ) THEN 439 430 CALL histclo( nid_T )
Note: See TracChangeset
for help on using the changeset viewer.