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 9387 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2018-03-08T13:36:26+01:00 (6 years ago)
Author:
andmirek
Message:

#2050 changes for sette 3 to work

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r9366 r9387  
    399399      IF( lk_c1d        )   CALL     c1d_init   ! 1D column configuration 
    400400                            CALL     dom_cfg    ! Domain configuration 
     401                            CALL     dom_init   ! Domain 
     402 
     403      IF( ln_nnogather )    CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined) 
     404 
     405      IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
     406 
     407                            CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
     408 
     409      IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
    401410                            CALL     sbc_init   ! Forcings : surface module (restart read with XIOS) 
    402                             CALL     dom_init   ! Domain 
    403  
    404       IF( ln_nnogather )    CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined) 
    405  
    406       IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
    407  
    408                             CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
    409  
    410       IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
    411  
    412411      IF( lk_bdy        )   CALL     bdy_init   ! Open boundaries initialisation 
    413412      IF( lk_bdy        )   CALL bdy_dta_init   ! Open boundaries initialisation of external data arrays 
Note: See TracChangeset for help on using the changeset viewer.