- Timestamp:
- 2019-12-13T16:11:51+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OFF/dtadyn.F90
r12210 r12246 279 279 ! Open file for each variable to get his number of dimension 280 280 DO ifpr = 1, jfld 281 CALL fld_clopn( sf_dyn(ifpr), nyear, nmonth, nday ) 281 CALL fld_def( sf_dyn(ifpr) ) 282 CALL iom_open( sf_dyn(ifpr)%clname, sf_dyn(ifpr)%num ) 282 283 idv = iom_varid( sf_dyn(ifpr)%num , slf_d(ifpr)%clvar ) ! id of the variable sdjf%clvar 283 284 idimv = iom_file ( sf_dyn(ifpr)%num )%ndims(idv) ! number of dimension for variable sdjf%clvar 284 IF( sf_dyn(ifpr)%num /= 0 ) CALL iom_close( sf_dyn(ifpr)%num )! close file if already open285 CALL iom_close( sf_dyn(ifpr)%num ) ! close file if already open 285 286 ierr1=0 286 287 IF( idimv == 3 ) THEN ! 2D variable … … 504 505 ! Open file for each variable to get his number of dimension 505 506 DO ifpr = 1, jfld 506 CALL fld_clopn( sf_dyn(ifpr), nyear, nmonth, nday ) 507 CALL fld_def( sf_dyn(ifpr) ) 508 CALL iom_open( sf_dyn(ifpr)%clname, sf_dyn(ifpr)%num ) 507 509 idv = iom_varid( sf_dyn(ifpr)%num , slf_d(ifpr)%clvar ) ! id of the variable sdjf%clvar 508 510 idimv = iom_file ( sf_dyn(ifpr)%num )%ndims(idv) ! number of dimension for variable sdjf%clvar 509 IF( sf_dyn(ifpr)%num /= 0 ) CALL iom_close( sf_dyn(ifpr)%num )! close file if already open511 CALL iom_close( sf_dyn(ifpr)%num ) ! close file if already open 510 512 ierr1=0 511 513 IF( idimv == 3 ) THEN ! 2D variable
Note: See TracChangeset
for help on using the changeset viewer.