- Timestamp:
- 2009-04-17T12:16:58+02:00 (15 years ago)
- Location:
- branches/dev_004_VVL/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/OPA_SRC/IOM/iom.F90
r1359 r1410 147 147 ! if iom_open is called for the first time: initialize iom_file(:)%nfid to 0 148 148 ! (could be done when defining iom_file in f95 but not in f90) 149 #if ! defined key_agrif 149 150 IF( iom_open_init == 0 ) THEN 150 151 iom_file(:)%nfid = 0 151 152 iom_open_init = 1 152 153 ENDIF 154 #else 155 IF( Agrif_Root() ) THEN 156 IF( iom_open_init == 0 ) THEN 157 iom_file(:)%nfid = 0 158 iom_open_init = 1 159 ENDIF 160 #endif 153 161 ! do we read or write the file? 154 162 IF( PRESENT(ldwrt) ) THEN ; llwrt = ldwrt -
branches/dev_004_VVL/NEMO/OPA_SRC/restart.F90
r1239 r1410 35 35 PUBLIC rst_read ! routine called by opa module 36 36 37 LOGICAL, PUBLIC :: lrst_oce 37 LOGICAL, PUBLIC :: lrst_oce = .FALSE. !: logical to control the oce restart write 38 38 INTEGER, PUBLIC :: numror, numrow !: logical unit for cean restart (read and write) 39 39
Note: See TracChangeset
for help on using the changeset viewer.