Changeset 8263

Timestamp:

2017-06-30T16:16:38+02:00 (7 years ago)

Author:

niall

Message:

 

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_debug/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (4 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_debug/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -409 +409 @@
                             CALL     sbc_init   ! Forcings : surface module (clem: moved here for bdy purpose)
 
-      IF( lk_bdy        )   CALL     bdy_init   ! Open boundaries initialisation
-      IF( lk_bdy        )   CALL bdy_dta_init   ! Open boundaries initialisation of external data arrays
-      IF( lk_bdy .AND. lk_tide )   &
-         &                  CALL bdytide_init   ! Open boundaries initialisation of tidal harmonic forcing
-
-                            CALL dyn_nept_init  ! simplified form of Neptune effect
+      !IF( lk_bdy        )   CALL     bdy_init   ! Open boundaries initialisation
+      !IF( lk_bdy        )   CALL bdy_dta_init   ! Open boundaries initialisation of external data arrays
+      !IF( lk_bdy .AND. lk_tide )   &
+      !   &                  CALL bdytide_init   ! Open boundaries initialisation of tidal harmonic forcing
+
+      !                      CALL dyn_nept_init  ! simplified form of Neptune effect
       !     
       IF( ln_crs        )   CALL     crs_init   ! Domain initialization of coarsened grid
@@ -445 +445 @@
       !                                     ! Dynamics
       IF( lk_c1d        )   CALL dyn_dmp_init   ! internal damping trends- momentum
-                            CALL dyn_adv_init   ! advection (vector or flux form)
-                            CALL dyn_vor_init   ! vorticity term including Coriolis
-                            CALL dyn_ldf_init   ! lateral mixing
-                            CALL dyn_hpg_init   ! horizontal gradient of Hydrostatic pressure
-                            CALL dyn_zdf_init   ! vertical diffusion
-                            CALL dyn_spg_init   ! surface pressure gradient
+      !                      CALL dyn_adv_init   ! advection (vector or flux form)
+      !                      CALL dyn_vor_init   ! vorticity term including Coriolis
+      !                      CALL dyn_ldf_init   ! lateral mixing
+      !                      CALL dyn_hpg_init   ! horizontal gradient of Hydrostatic pressure
+      !                      CALL dyn_zdf_init   ! vertical diffusion
+      !                      CALL dyn_spg_init   ! surface pressure gradient
 
       !                                     ! Misc. options
       IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 )   CALL cla_init       ! Cross Land Advection
       !                      CALL icb_init( rdt, nit000)   ! initialise icebergs instance
-                            CALL sto_par_init   ! Stochastic parametrization
+      !                      CALL sto_par_init   ! Stochastic parametrization
       IF( ln_sto_eos     )  CALL sto_pts_init   ! RRandom T/S fluctuations
      
@@ -465 +465 @@
       IF( lk_floats     )   CALL     flo_init   ! drifting Floats
       IF( lk_diaar5     )   CALL dia_ar5_init   ! ar5 diag
-                            CALL dia_ptr_init   ! Poleward TRansports initialization
+      !                      CALL dia_ptr_init   ! Poleward TRansports initialization
       IF( lk_diadct     )   CALL dia_dct_init   ! Sections tranports
-                            CALL dia_hsb_init   ! heat content, salt content and volume budgets
+      !                      CALL dia_hsb_init   ! heat content, salt content and volume budgets
       !                      CALL     trd_init   ! Mixed-layer/Vorticity/Integral constraints trends
       IF( lk_diaobs     ) THEN                  ! Observation & model comparison
@@ -477 +477 @@
       IF( lk_asminc     )   CALL asm_inc_init   ! Initialize assimilation increments
       IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler
-                            CALL dia_tmb_init  ! TMB outputs
-                            CALL dia_25h_init  ! 25h mean  outputs
+      !                      CALL dia_tmb_init  ! TMB outputs
+      !                      CALL dia_25h_init  ! 25h mean  outputs
       !
    END SUBROUTINE nemo_init