Changeset 9387


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

#2050 changes for sette 3 to work

Location:
branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO
Files:
2 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 
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r7923 r9387  
    7373      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    7474      ! 
    75       INTEGER ::   jk  
     75      INTEGER ::   jk, jn  
    7676      CHARACTER (len=22) ::   charout 
    7777      REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity 
Note: See TracChangeset for help on using the changeset viewer.