Changeset 13558 for NEMO/trunk/src/OFF
- Timestamp:
- 2020-10-02T17:30:22+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OFF/nemogcm.F90
r13555 r13558 40 40 USE sbcmod ! surface boundary condition (sbc_init routine) 41 41 USE phycst ! physical constant (par_cst routine) 42 USE zdfphy ! vertical physics manager (zdf_phy_init routine) 42 43 USE dtadyn ! Lecture and Interpolation of the dynamical fields 43 44 USE trcini ! Initilization of the passive tracers … … 49 50 USE trcnam ! passive tracer : namelist 50 51 USE trcrst ! passive tracer restart 51 USE diaptr ! Need to initialise this as some variables are used in if statements later52 52 USE sbc_oce , ONLY : ln_rnf 53 53 USE sbcrnf ! surface boundary condition : runoffs … … 347 347 348 348 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 350 352 351 353 ! ! Tracer physics 352 354 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 354 356 CALL tra_ldf_init ! lateral mixing 355 357 IF( l_ldfslp ) CALL ldf_slp_init ! slope of lateral mixing … … 365 367 CALL dta_dyn_init( Nbb, Nnn, Naa ) ! Initialization for the dynamics 366 368 #endif 367 368 369 CALL trc_init( Nbb, Nnn, Naa ) ! Passive tracers initialization 369 CALL dia_ptr_init ! Poleward TRansports initialization370 370 371 371 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA
Note: See TracChangeset
for help on using the changeset viewer.