Changeset 9652 for NEMO/trunk/tests
- Timestamp:
- 2018-05-28T09:13:39+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/CANAL/MY_SRC/diawri.F90
r9576 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 !!---------------------------------------------------------------------- 91 92 INTEGER FUNCTION dia_wri_alloc() 93 ! 94 dia_wri_alloc = 0 95 ! 96 END FUNCTION dia_wri_alloc 97 108 98 109 99 SUBROUTINE dia_wri( kt ) … … 515 505 !! Default option use IOIPSL library 516 506 !!---------------------------------------------------------------------- 517 507 508 INTEGER FUNCTION dia_wri_alloc() 509 !!---------------------------------------------------------------------- 510 INTEGER, DIMENSION(2) :: ierr 511 !!---------------------------------------------------------------------- 512 ierr = 0 513 ALLOCATE( ndex_hT(jpi*jpj) , ndex_T(jpi*jpj*jpk) , & 514 & ndex_hU(jpi*jpj) , ndex_U(jpi*jpj*jpk) , & 515 & ndex_hV(jpi*jpj) , ndex_V(jpi*jpj*jpk) , STAT=ierr(1) ) 516 ! 517 dia_wri_alloc = MAXVAL(ierr) 518 IF( lk_mpp ) CALL mpp_sum( dia_wri_alloc ) 519 ! 520 END FUNCTION dia_wri_alloc 521 522 518 523 SUBROUTINE dia_wri( kt ) 519 524 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.