Ignore:
Timestamp:
2018-03-08T12:49:58+01:00 (3 years ago)
Author:
andmirek
Message:

move sbc_init below dom_init

File:
1 edited

Legend:

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

    r8283 r9386  
    395395      IF( lk_c1d        )   CALL     c1d_init   ! 1D column configuration 
    396396                            CALL     dom_cfg    ! Domain configuration 
     397                            CALL     dom_init   ! Domain 
     398 
     399      IF( ln_nnogather )    CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined) 
     400 
     401      IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
     402 
     403                            CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
     404 
     405      IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
     406 
    397407                            CALL     sbc_init   ! Forcings : surface module (restart read with XIOS) 
    398                             CALL     dom_init   ! Domain 
    399  
    400       IF( ln_nnogather )    CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined) 
    401  
    402       IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
    403  
    404                             CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
    405  
    406       IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
    407408 
    408409      IF( lk_bdy        )   CALL     bdy_init   ! Open boundaries initialisation 
Note: See TracChangeset for help on using the changeset viewer.