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 13558 for NEMO/trunk/src/OFF/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2020-10-02T17:30:22+02:00 (3 years ago)
Author:
smasson
Message:

trunk: pass sette tests with debugging option -init=arrays,snan,huge, see #2535

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OFF/nemogcm.F90

    r13555 r13558  
    4040   USE sbcmod         ! surface boundary condition     (sbc_init     routine) 
    4141   USE phycst         ! physical constant                   (par_cst routine) 
     42   USE zdfphy         ! vertical physics manager       (zdf_phy_init routine) 
    4243   USE dtadyn         ! Lecture and Interpolation of the dynamical fields 
    4344   USE trcini         ! Initilization of the passive tracers 
     
    4950   USE trcnam         ! passive tracer : namelist 
    5051   USE trcrst         ! passive tracer restart 
    51    USE diaptr         ! Need to initialise this as some variables are used in if statements later 
    5252   USE sbc_oce , ONLY : ln_rnf 
    5353   USE sbcrnf         ! surface boundary condition : runoffs 
     
    347347 
    348348                           CALL     sbc_init( Nbb, Nnn, Naa )    ! Forcings : surface module 
    349                            CALL     bdy_init    ! Open boundaries initialisation     
     349                           CALL     bdy_init    ! Open boundaries initialisation 
     350                            
     351                           CALL zdf_phy_init( Nnn )    ! Vertical physics 
    350352 
    351353      !                                      ! Tracer physics 
    352354                           CALL ldf_tra_init    ! Lateral ocean tracer physics 
    353                            CALL ldf_eiv_init    ! Eddy induced velocity param 
     355                           CALL ldf_eiv_init    ! Eddy induced velocity param. must be done after ldf_tra_init 
    354356                           CALL tra_ldf_init    ! lateral mixing 
    355357      IF( l_ldfslp     )   CALL ldf_slp_init    ! slope of lateral mixing 
     
    365367                           CALL dta_dyn_init( Nbb, Nnn, Naa )        ! Initialization for the dynamics 
    366368#endif 
    367  
    368369                           CALL     trc_init( Nbb, Nnn, Naa )        ! Passive tracers initialization 
    369                            CALL dia_ptr_init   ! Poleward TRansports initialization 
    370370                            
    371371      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
Note: See TracChangeset for help on using the changeset viewer.