Changeset 10522 for NEMO/trunk/src/TOP

Timestamp:

2019-01-16T09:35:15+01:00 (5 years ago)

Author:

smasson

Message:

trunk: replace iom_gettime by iom_getszuld, see #2212

Location:

NEMO/trunk/src/TOP/PISCES/P4Z

Files:

• p4zopt.F90 (modified) (2 diffs)
• p4zsbc.F90 (modified) (5 diffs)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zopt.F90

@@ -389 +389 @@
       !!----------------------------------------------------------------------
       INTEGER :: numpar, ierr, ios   ! Local integer 
-      REAL(wp), DIMENSION(nbtimes) ::   zsteps   ! times records
       !
       CHARACTER(len=100) ::  cn_dir          ! Root directory for location of ssr files
@@ -434 +433 @@
 
          CALL iom_open (  TRIM( sn_par%clname ) , numpar )
-         CALL iom_gettime( numpar, zsteps, kntime=ntimes_par)  ! get number of record in file
+         ntimes_par = iom_getszuld( numpar )   ! get number of record in file
       ENDIF
       !

NEMO/trunk/src/TOP/PISCES/P4Z/p4zsbc.F90

@@ -211 +211 @@
       REAL(wp) :: zexpide, zdenitide, zmaskt, zsurfc, zsurfp,ze3t, ze3t2, zcslp
       REAL(wp) :: ztimes_dust, ztimes_riv, ztimes_ndep 
-      REAL(wp), DIMENSION(nbtimes) :: zsteps                 ! times records
       REAL(wp), DIMENSION(:), ALLOCATABLE :: rivinput
       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: zriver, zcmask
@@ -309 +308 @@
             ! Get total input dust ; need to compute total atmospheric supply of Si in a year
             CALL iom_open (  TRIM( sn_dust%clname ) , numdust )
-            CALL iom_gettime( numdust, zsteps, kntime=ntimes_dust)  ! get number of record in file
+            ntimes_dust = iom_getszuld( numdust )   ! get number of record in file
          END IF
       END IF
@@ -331 +330 @@
          ! get number of record in file
          CALL iom_open (  TRIM( sn_solub%clname ) , numsolub )
-         CALL iom_gettime( numsolub, zsteps, kntime=ntimes_solub)  ! get number of record in file
+         ntimes_solub = iom_getszuld( numsolub )   ! get number of record in file
          CALL iom_close( numsolub )
       ENDIF
@@ -360 +359 @@
             DO ifpr = 1, jpriv
                CALL iom_open ( TRIM( slf_river(ifpr)%clname ), numriv )
-               CALL iom_gettime( numriv, zsteps, kntime=ntimes_riv)
+               ntimes_riv = iom_getszuld( numriv )
                ALLOCATE( zriver(jpi,jpj,ntimes_riv) )
                DO jm = 1, ntimes_riv
@@ -407 +406 @@
             ! Get total input dust ; need to compute total atmospheric supply of N in a year
             CALL iom_open ( TRIM( sn_ndepo%clname ), numdepo )
-            CALL iom_gettime( numdepo, zsteps, kntime=ntimes_ndep)
+            ntimes_ndep = iom_getszuld( numdepo )
          ENDIF
       ENDIF