- Timestamp:
- 2020-06-03T12:48:36+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/ZDF/zdfgls.F90
r12489 r13016 1059 1059 ! ! --------------- 1060 1060 IF( ln_rstart ) THEN !* Read the restart file 1061 IF(lrxios) CALL iom_swap( TRIM(crxios_context) ) 1061 1062 id1 = iom_varid( numror, 'en' , ldstop = .FALSE. ) 1062 1063 id2 = iom_varid( numror, 'avt_k' , ldstop = .FALSE. ) … … 1076 1077 ! avt_k, avm_k already set to the background value in zdf_phy_init 1077 1078 ENDIF 1079 IF(lrxios) CALL iom_swap( TRIM(cxios_context) ) 1078 1080 ELSE !* Start from rest 1079 1081 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.