Ignore:
Timestamp:
2019-12-14T09:41:16+01:00 (18 months ago)
Author:
smasson
Message:

rev12240_dev_r11943_MERGE_2019: same as [12246], add modifications from dev_r12114_ticket_2263, results unchanged except SPITZ12 as explained in #2263

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11943_MERGE_2019/src/OFF/dtadyn.F90

    r12236 r12250  
    284284      ! Open file for each variable to get his number of dimension 
    285285      DO ifpr = 1, jfld 
    286          CALL fld_clopn( sf_dyn(ifpr), nyear, nmonth, nday ) 
     286         CALL fld_def( sf_dyn(ifpr) ) 
     287         CALL iom_open( sf_dyn(ifpr)%clname, sf_dyn(ifpr)%num ) 
    287288         idv   = iom_varid( sf_dyn(ifpr)%num , slf_d(ifpr)%clvar )        ! id of the variable sdjf%clvar 
    288289         idimv = iom_file ( sf_dyn(ifpr)%num )%ndims(idv)                 ! number of dimension for variable sdjf%clvar 
    289          IF( sf_dyn(ifpr)%num /= 0 )   CALL iom_close( sf_dyn(ifpr)%num ) ! close file if already open 
     290         CALL iom_close( sf_dyn(ifpr)%num )                              ! close file if already open 
    290291         ierr1=0 
    291292         IF( idimv == 3 ) THEN    ! 2D variable 
     
    512513      ! Open file for each variable to get his number of dimension 
    513514      DO ifpr = 1, jfld 
    514          CALL fld_clopn( sf_dyn(ifpr), nyear, nmonth, nday ) 
     515         CALL fld_def( sf_dyn(ifpr) ) 
     516         CALL iom_open( sf_dyn(ifpr)%clname, sf_dyn(ifpr)%num ) 
    515517         idv   = iom_varid( sf_dyn(ifpr)%num , slf_d(ifpr)%clvar )        ! id of the variable sdjf%clvar 
    516518         idimv = iom_file ( sf_dyn(ifpr)%num )%ndims(idv)                 ! number of dimension for variable sdjf%clvar 
    517          IF( sf_dyn(ifpr)%num /= 0 )   CALL iom_close( sf_dyn(ifpr)%num ) ! close file if already open 
     519         CALL iom_close( sf_dyn(ifpr)%num )                              ! close file if already open 
    518520         ierr1=0 
    519521         IF( idimv == 3 ) THEN    ! 2D variable 
Note: See TracChangeset for help on using the changeset viewer.