- Timestamp:
- 2018-05-28T09:13:39+02:00 (6 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 3 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 !!--------------------------------------------------------------------- -
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 !!--------------------------------------------------------------------- -
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.