Changeset 3200 for branches/2011/dev_NEMO_MERGE_2011
- Timestamp:
- 2011-12-07T16:00:49+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
r3186 r3200 208 208 END SUBROUTINE lim_wri_2 209 209 210 # endif 210 211 211 212 SUBROUTINE lim_wri_init_2 … … 294 295 END SUBROUTINE lim_wri_init_2 295 296 296 # endif297 297 #endif 298 298 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limwri_dimg_2.h90
r2715 r3200 22 22 INTEGER , SAVE, DIMENSION(:), ALLOCATABLE :: nsubindex !: subindex to be saved 23 23 INTEGER , SAVE :: nice, nhorid, ndim, niter, ndepid 24 REAL(wp), SAVE, DIMENSION( jpi,jpj,jpnoumax):: rcmoy24 REAL(wp), SAVE, DIMENSION(:,:,:), ALLOCATABLE :: rcmoy 25 25 26 26 INTEGER :: ji, jj, jf, ii ! dummy loop indices and array index 27 27 INTEGER :: iyear, iday, imon ! 28 INTEGER :: ialloc 28 29 CHARACTER(LEN=80) :: clname, cltext, clmode 29 30 REAL(wp), DIMENSION(1) :: zdept … … 39 40 #endif 40 41 !!------------------------------------------------------------------- 42 IF( .NOT. ALLOCATED(rcmoy) )THEN 43 ALLOCATE(rcmoy(jpi,jpj,jpnoumax), STAT=ialloc ) 44 ! 45 IF( lk_mpp ) CALL mpp_sum ( ialloc ) 46 IF( ialloc /= 0 ) CALL ctl_warn('lim_wri_2 (limwri_dimg_2.h90) : failed to allocate arrays') 47 ENDIF 41 48 42 49 IF( kt == nit000 ) THEN -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90
r2715 r3200 10 10 USE in_out_manager ! I/O manager 11 11 USE daymod ! calendar 12 USE lib_mpp 12 13 13 14 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r3168 r3200 82 82 INTEGER :: inbsel, jk 83 83 INTEGER :: iyear,imon,iday 84 INTEGER :: ialloc 84 85 REAL(wp) :: zdtj 85 86 CHARACTER(LEN=80) :: clname … … 93 94 ! --------------- 94 95 ! 95 IF( .not.ALLOCATED(um))THEN96 IF( .NOT. ALLOCATED(um) )THEN 96 97 ALLOCATE(um(jpi,jpj,jpk), vm(jpi,jpj,jpk), & 97 98 wm(jpi,jpj,jpk), & … … 99 100 tm(jpi,jpj,jpk), sm(jpi,jpj,jpk), & 100 101 fsel(jpi,jpj,jpk), & 101 S tat=jk)102 IF(jk /= 0)THEN103 WRITE(*,*) 'ERROR: allocate failed in dia_wri (diawri_dimg.h90)'104 CALL mppabort()105 ENDIF106 END IF 102 STAT=ialloc ) 103 ! 104 IF( lk_mpp ) CALL mpp_sum ( ialloc ) 105 IF( ialloc /= 0 ) CALL ctl_warn('dia_wri( diawri_dimg.h90) : failed to allocate arrays') 106 ENDIF 107 107 108 108 109 inbsel = 17
Note: See TracChangeset
for help on using the changeset viewer.