New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10522 for NEMO/trunk/src/OCE/SBC – NEMO

Ignore:
Timestamp:
2019-01-16T09:35:15+01:00 (5 years ago)
Author:
smasson
Message:

trunk: replace iom_gettime by iom_getszuld, see #2212

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcrnf.F90

    r10425 r10522  
    240240      INTEGER           ::   nbrec         ! temporary integer 
    241241      REAL(wp)          ::   zacoef   
    242       REAL(wp), DIMENSION(12)                 :: zrec             ! times records 
    243242      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zrnfcl     
    244243      REAL(wp), DIMENSION(:,:  ), ALLOCATABLE :: zrnf 
     
    372371 
    373372         CALL iom_open( TRIM( sn_rnf%clname ), inum )    !  open runoff file 
    374          CALL iom_gettime( inum, zrec, kntime=nbrec) 
     373         nbrec = iom_getszuld( inum ) 
    375374         ALLOCATE( zrnfcl(jpi,jpj,nbrec) )     ;      ALLOCATE( zrnf(jpi,jpj) ) 
    376375         DO jm = 1, nbrec 
Note: See TracChangeset for help on using the changeset viewer.