- 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/OPA_SRC/DIA/diawri.F90
r4990 r5282 43 43 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 44 44 USE in_out_manager ! I/O manager 45 USE diadimg ! dimg direct access file format output46 45 USE iom 47 46 USE ioipsl … … 97 96 END FUNCTION dia_wri_alloc 98 97 99 #if defined key_dimgout100 !!----------------------------------------------------------------------101 !! 'key_dimgout' DIMG output file102 !!----------------------------------------------------------------------103 # include "diawri_dimg.h90"104 105 #else106 98 !!---------------------------------------------------------------------- 107 99 !! Default option NetCDF output file 108 100 !!---------------------------------------------------------------------- 109 # 101 #if defined key_iomput 110 102 !!---------------------------------------------------------------------- 111 103 !! 'key_iomput' use IOM library … … 418 410 ! Define frequency of output and means 419 411 zdt = rdt 420 IF( nacc == 1 ) zdt = rdtmin421 412 IF( ln_mskland ) THEN ; clop = "only(x)" ! put 1.e+20 on land (very expensive!!) 422 413 ELSE ; clop = "x" ! no use of the mask value (require less cpu time) … … 762 753 IF( lk_vvl ) THEN 763 754 zw3d(:,:,:) = ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 764 CALL histwrite( nid_T, "vovvle3t", it, fse3t_n 755 CALL histwrite( nid_T, "vovvle3t", it, fse3t_n(:,:,:) , ndim_T , ndex_T ) ! level thickness 765 756 CALL histwrite( nid_T, "vovvldep", it, fsdept_n(:,:,:) , ndim_T , ndex_T ) ! t-point depth 766 757 CALL histwrite( nid_T, "vovvldef", it, zw3d , ndim_T , ndex_T ) ! level thickness deformation … … 914 905 ! 915 906 END SUBROUTINE dia_wri 916 # 917 918 #endif 907 #endif 908 909 919 910 920 911 SUBROUTINE dia_wri_state( cdfile_name, kt ) … … 1035 1026 ! ----------------- 1036 1027 CALL histclo( id_i ) 1037 #if ! defined key_iomput && ! defined key_dimgout1028 #if ! defined key_iomput 1038 1029 IF( ninist /= 1 ) THEN 1039 1030 CALL histclo( nid_T )
Note: See TracChangeset
for help on using the changeset viewer.