New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14018 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OFF/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2020-12-02T18:22:24+01:00 (3 years ago)
Author:
techene
Message:

#2385 branch updated with trunk 13970

Location:
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@13559        sette 
         10^/utils/CI/sette@13795        sette 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OFF/nemogcm.F90

    r13998 r14018  
    130130         ENDIF 
    131131         ! 
     132      IF((istp == nitrst) .AND. lwxios) THEN 
     133         CALL iom_swap(      cw_toprst_cxt          ) 
     134         CALL iom_init_closedef(cw_toprst_cxt) 
     135         CALL iom_setkt( istp - nit000 + 1,      cw_toprst_cxt          ) 
     136      ENDIF 
     137 
    132138         IF( istp /= nit000 )   CALL day        ( istp )         ! Calendar (day was already called at nit000 in day_init) 
    133139                                CALL iom_setkt  ( istp - nit000 + 1, cxios_context )   ! say to iom that we are at time step kstp 
    … …  
    344350                           CALL     eos_init        ! Equation of state 
    345351      IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration 
    346                            CALL     dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 
     352                           CALL     dom_init( Nbb, Nnn, Naa ) ! Domain 
    347353      IF( sn_cfctl%l_prtctl )   & 
    348354         &                 CALL prt_ctl_init        ! Print control 
Note: See TracChangeset for help on using the changeset viewer.