Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90
r2715 r3294 10 10 USE in_out_manager ! I/O manager 11 11 USE daymod ! calendar 12 USE lib_mpp 12 13 13 14 IMPLICIT NONE … … 40 41 !!--------------------------------------------------------------------- 41 42 ! 42 ALLOCATE( z42d(jpi,jpj), z4dep(jpk), STAT=dia_wri_dimg_alloc ) 43 ! 44 IF( lk_mpp ) CALL mpp_sum ( dia_wri_dimg_alloc ) 45 IF( dia_wri_dimg_alloc /= 0 ) CALL ctl_warn('dia_wri_dimg_alloc: allocation of array failed.') 43 IF( .NOT. ALLOCATED( z42d ) )THEN 44 45 ALLOCATE( z42d(jpi,jpj), z4dep(jpk), STAT=dia_wri_dimg_alloc ) 46 47 IF( lk_mpp ) CALL mpp_sum ( dia_wri_dimg_alloc ) 48 IF( dia_wri_dimg_alloc /= 0 ) CALL ctl_warn('dia_wri_dimg_alloc: allocation of array failed.') 49 50 ELSE 51 52 dia_wri_dimg_alloc = 0 53 54 ENDIF 46 55 ! 47 56 END FUNCTION dia_wri_dimg_alloc
Note: See TracChangeset
for help on using the changeset viewer.