Changeset 9652 for NEMO/trunk/src/OCE/DIA
- Timestamp:
- 2018-05-28T09:13:39+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DIA/diawri.F90
r9598 r9652 85 85 CONTAINS 86 86 87 INTEGER FUNCTION dia_wri_alloc()88 !!----------------------------------------------------------------------89 INTEGER, DIMENSION(2) :: ierr90 !!----------------------------------------------------------------------91 ierr = 092 ALLOCATE( ndex_hT(jpi*jpj) , ndex_T(jpi*jpj*jpk) , &93 & ndex_hU(jpi*jpj) , ndex_U(jpi*jpj*jpk) , &94 & ndex_hV(jpi*jpj) , ndex_V(jpi*jpj*jpk) , STAT=ierr(1) )95 !96 dia_wri_alloc = MAXVAL(ierr)97 IF( lk_mpp ) CALL mpp_sum( dia_wri_alloc )98 !99 END FUNCTION dia_wri_alloc100 101 !!----------------------------------------------------------------------102 !! Default option NetCDF output file103 !!----------------------------------------------------------------------104 87 #if defined key_iomput 105 88 !!---------------------------------------------------------------------- 106 89 !! 'key_iomput' use IOM library 107 90 !!---------------------------------------------------------------------- 108 91 INTEGER FUNCTION dia_wri_alloc() 92 ! 93 dia_wri_alloc = 0 94 ! 95 END FUNCTION dia_wri_alloc 96 97 109 98 SUBROUTINE dia_wri( kt ) 110 99 !!--------------------------------------------------------------------- … … 411 400 !!---------------------------------------------------------------------- 412 401 402 INTEGER FUNCTION dia_wri_alloc() 403 !!---------------------------------------------------------------------- 404 INTEGER, DIMENSION(2) :: ierr 405 !!---------------------------------------------------------------------- 406 ierr = 0 407 ALLOCATE( ndex_hT(jpi*jpj) , ndex_T(jpi*jpj*jpk) , & 408 & ndex_hU(jpi*jpj) , ndex_U(jpi*jpj*jpk) , & 409 & ndex_hV(jpi*jpj) , ndex_V(jpi*jpj*jpk) , STAT=ierr(1) ) 410 ! 411 dia_wri_alloc = MAXVAL(ierr) 412 IF( lk_mpp ) CALL mpp_sum( dia_wri_alloc ) 413 ! 414 END FUNCTION dia_wri_alloc 415 416 413 417 SUBROUTINE dia_wri( kt ) 414 418 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.