Changeset 10522 for NEMO/trunk/src/OCE/SBC
- Timestamp:
- 2019-01-16T09:35:15+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcrnf.F90
r10425 r10522 240 240 INTEGER :: nbrec ! temporary integer 241 241 REAL(wp) :: zacoef 242 REAL(wp), DIMENSION(12) :: zrec ! times records243 242 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zrnfcl 244 243 REAL(wp), DIMENSION(:,: ), ALLOCATABLE :: zrnf … … 372 371 373 372 CALL iom_open( TRIM( sn_rnf%clname ), inum ) ! open runoff file 374 CALL iom_gettime( inum, zrec, kntime=nbrec)373 nbrec = iom_getszuld( inum ) 375 374 ALLOCATE( zrnfcl(jpi,jpj,nbrec) ) ; ALLOCATE( zrnf(jpi,jpj) ) 376 375 DO jm = 1, nbrec
Note: See TracChangeset
for help on using the changeset viewer.