Changeset 14012 for NEMO/branches/2020/tickets_icb_1900/src/OFF/nemogcm.F90
- Timestamp:
- 2020-12-02T16:13:45+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @13559sette10 ^/utils/CI/sette_MPI3_LoopFusion@13943 sette
-
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OFF/nemogcm.F90
r13899 r14012 126 126 ENDIF 127 127 ! 128 IF((istp == nitrst) .AND. lwxios) THEN 129 CALL iom_swap( cw_toprst_cxt ) 130 CALL iom_init_closedef(cw_toprst_cxt) 131 CALL iom_setkt( istp - nit000 + 1, cw_toprst_cxt ) 132 ENDIF 133 128 134 IF( istp /= nit000 ) CALL day ( istp ) ! Calendar (day was already called at nit000 in day_init) 129 135 CALL iom_setkt ( istp - nit000 + 1, cxios_context ) ! say to iom that we are at time step kstp … … 340 346 CALL eos_init ! Equation of state 341 347 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 342 CALL dom_init( Nbb, Nnn, Naa , "OPA") ! Domain348 CALL dom_init( Nbb, Nnn, Naa ) ! Domain 343 349 IF( sn_cfctl%l_prtctl ) & 344 350 & CALL prt_ctl_init ! Print control
Note: See TracChangeset
for help on using the changeset viewer.