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 12116 for NEMO/branches/2019/dev_r12114_ticket_2263/src/OFF/dtadyn.F90 – NEMO

Ignore:
Timestamp:
2019-12-09T08:53:27+01:00 (4 years ago)
Author:
smasson
Message:

dev_r12114_ticket_2263: new version of fldread calendar, see #2263

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r12114_ticket_2263/src/OFF/dtadyn.F90

    r11536 r12116  
    281281      ! Open file for each variable to get his number of dimension 
    282282      DO ifpr = 1, jfld 
    283          CALL fld_clopn( sf_dyn(ifpr), nyear, nmonth, nday ) 
     283         CALL fld_def( sf_dyn(ifpr) ) 
     284         CALL iom_open( sf_dyn(ifpr)%clname, sf_dyn(ifpr)%num ) 
    284285         idv   = iom_varid( sf_dyn(ifpr)%num , slf_d(ifpr)%clvar )        ! id of the variable sdjf%clvar 
    285286         idimv = iom_file ( sf_dyn(ifpr)%num )%ndims(idv)                 ! number of dimension for variable sdjf%clvar 
    286          IF( sf_dyn(ifpr)%num /= 0 )   CALL iom_close( sf_dyn(ifpr)%num ) ! close file if already open 
     287         CALL iom_close( sf_dyn(ifpr)%num )                              ! close file if already open 
    287288         ierr1=0 
    288289         IF( idimv == 3 ) THEN    ! 2D variable 
    … …  
    508509      ! Open file for each variable to get his number of dimension 
    509510      DO ifpr = 1, jfld 
    510          CALL fld_clopn( sf_dyn(ifpr), nyear, nmonth, nday ) 
     511         CALL fld_def( sf_dyn(ifpr) ) 
     512         CALL iom_open( sf_dyn(ifpr)%clname, sf_dyn(ifpr)%num ) 
    511513         idv   = iom_varid( sf_dyn(ifpr)%num , slf_d(ifpr)%clvar )        ! id of the variable sdjf%clvar 
    512514         idimv = iom_file ( sf_dyn(ifpr)%num )%ndims(idv)                 ! number of dimension for variable sdjf%clvar 
    513          IF( sf_dyn(ifpr)%num /= 0 )   CALL iom_close( sf_dyn(ifpr)%num ) ! close file if already open 
     515         CALL iom_close( sf_dyn(ifpr)%num )                              ! close file if already open 
    514516         ierr1=0 
    515517         IF( idimv == 3 ) THEN    ! 2D variable 
Note: See TracChangeset for help on using the changeset viewer.