- Timestamp:
- 2016-03-08T11:12:40+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r6371 r6372 1290 1290 CHARACTER(LEN=*) , INTENT(in ) :: lsmfile ! land sea mask file name 1291 1291 !! 1292 REAL(wp),DIMENSION(:,:,:),ALLOCATABLE :: ztmp_fly_dta 1292 REAL(wp),DIMENSION(:,:,:),ALLOCATABLE :: ztmp_fly_dta,zfieldo ! temporary array of values on input grid 1293 1293 INTEGER, DIMENSION(3) :: rec1,recn ! temporary arrays for start and length 1294 1294 INTEGER, DIMENSION(3) :: rec1_lsm,recn_lsm ! temporary arrays for start and length in case of seaoverland … … 1356 1356 1357 1357 1358 itmpi= jpi2_lsm-jpi1_lsm+11359 itmpj= jpj2_lsm-jpj1_lsm+11358 itmpi=SIZE(ztmp_fly_dta(jpi1_lsm:jpi2_lsm,jpj1_lsm:jpj2_lsm,:),1) 1359 itmpj=SIZE(ztmp_fly_dta(jpi1_lsm:jpi2_lsm,jpj1_lsm:jpj2_lsm,:),2) 1360 1360 itmpz=kk 1361 1361 ALLOCATE(ztmp_fly_dta(itmpi,itmpj,itmpz))
Note: See TracChangeset
for help on using the changeset viewer.