Changeset 10522 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsbc.F90
- Timestamp:
- 2019-01-16T09:35:15+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsbc.F90
r10425 r10522 211 211 REAL(wp) :: zexpide, zdenitide, zmaskt, zsurfc, zsurfp,ze3t, ze3t2, zcslp 212 212 REAL(wp) :: ztimes_dust, ztimes_riv, ztimes_ndep 213 REAL(wp), DIMENSION(nbtimes) :: zsteps ! times records214 213 REAL(wp), DIMENSION(:), ALLOCATABLE :: rivinput 215 214 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zriver, zcmask … … 309 308 ! Get total input dust ; need to compute total atmospheric supply of Si in a year 310 309 CALL iom_open ( TRIM( sn_dust%clname ) , numdust ) 311 CALL iom_gettime( numdust, zsteps, kntime=ntimes_dust)! get number of record in file310 ntimes_dust = iom_getszuld( numdust ) ! get number of record in file 312 311 END IF 313 312 END IF … … 331 330 ! get number of record in file 332 331 CALL iom_open ( TRIM( sn_solub%clname ) , numsolub ) 333 CALL iom_gettime( numsolub, zsteps, kntime=ntimes_solub)! get number of record in file332 ntimes_solub = iom_getszuld( numsolub ) ! get number of record in file 334 333 CALL iom_close( numsolub ) 335 334 ENDIF … … 360 359 DO ifpr = 1, jpriv 361 360 CALL iom_open ( TRIM( slf_river(ifpr)%clname ), numriv ) 362 CALL iom_gettime( numriv, zsteps, kntime=ntimes_riv)361 ntimes_riv = iom_getszuld( numriv ) 363 362 ALLOCATE( zriver(jpi,jpj,ntimes_riv) ) 364 363 DO jm = 1, ntimes_riv … … 407 406 ! Get total input dust ; need to compute total atmospheric supply of N in a year 408 407 CALL iom_open ( TRIM( sn_ndepo%clname ), numdepo ) 409 CALL iom_gettime( numdepo, zsteps, kntime=ntimes_ndep)408 ntimes_ndep = iom_getszuld( numdepo ) 410 409 ENDIF 411 410 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.