Changeset 9652 for NEMO/trunk/src/SAS
- Timestamp:
- 2018-05-28T09:13:39+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/SAS/diawri.F90
r9598 r9652 66 66 CONTAINS 67 67 68 # if defined key_iomput 69 !!---------------------------------------------------------------------- 70 !! 'key_iomput' use IOM library 71 !!---------------------------------------------------------------------- 68 72 INTEGER FUNCTION dia_wri_alloc() 69 !!---------------------------------------------------------------------- 70 INTEGER :: ierr 71 !!---------------------------------------------------------------------- 72 ! 73 ALLOCATE( ndex_hT(jpi*jpj), ndex_hU(jpi*jpj), ndex_hV(jpi*jpj), STAT=dia_wri_alloc ) 74 IF( lk_mpp ) CALL mpp_sum( dia_wri_alloc ) 75 ! 76 END FUNCTION dia_wri_alloc 77 78 !!---------------------------------------------------------------------- 79 !! Default option NetCDF output file 80 !!---------------------------------------------------------------------- 81 # if defined key_iomput 82 !!---------------------------------------------------------------------- 83 !! 'key_iomput' use IOM library 84 !!---------------------------------------------------------------------- 85 73 ! 74 dia_wri_alloc = 0 75 ! 76 END FUNCTION dia_wri_alloc 77 78 86 79 SUBROUTINE dia_wri( kt ) 87 80 !!--------------------------------------------------------------------- … … 110 103 !! Default option use IOIPSL library 111 104 !!---------------------------------------------------------------------- 112 105 INTEGER FUNCTION dia_wri_alloc() 106 !!---------------------------------------------------------------------- 107 INTEGER :: ierr 108 !!---------------------------------------------------------------------- 109 ! 110 ALLOCATE( ndex_hT(jpi*jpj), ndex_hU(jpi*jpj), ndex_hV(jpi*jpj), STAT=dia_wri_alloc ) 111 IF( lk_mpp ) CALL mpp_sum( dia_wri_alloc ) 112 ! 113 END FUNCTION dia_wri_alloc 114 115 113 116 SUBROUTINE dia_wri( kt ) 114 117 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.