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 10425 for NEMO/trunk/src/TOP/PISCES/SED/sedrst.F90 – NEMO

Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (5 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/SED/sedrst.F90

    r10333 r10425  
    7878         IF(lwp) WRITE(numsed,*) & 
    7979             '             open sed restart.output NetCDF file: ',TRIM(clpath)//clname 
    80          CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., kiolib = jprstlib, kdlev = jpksed ) 
     80         CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., kdlev = jpksed ) 
    8181         lrst_sed = .TRUE. 
    8282      ENDIF 
     
    105105      CHARACTER(len = 20) ::   cltra 
    106106      CHARACTER(LEN=20)   ::   name1 
    107       INTEGER             ::   jlibalt = jprstlib 
    108107      LOGICAL             ::   llok 
    109108      !-------------------------------------------------------------------- 
     
    338337      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag 
    339338      ! 
    340       INTEGER  ::  jlibalt = jprstlib 
    341339      LOGICAL  ::  llok 
    342340      REAL(wp) ::  zkt, zrdttrc1 
     
    353351 
    354352         IF( ln_rst_sed ) THEN 
    355             CALL iom_open( TRIM(cn_sedrst_indir)//'/'//cn_sedrst_in, numrsr, kiolib = jlibalt ) 
     353            CALL iom_open( TRIM(cn_sedrst_indir)//'/'//cn_sedrst_in, numrsr ) 
    356354            CALL iom_get ( numrsr, 'kt', zkt )   ! last time-step of previous run 
    357355 
Note: See TracChangeset for help on using the changeset viewer.