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 8568 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2017-09-27T16:29:24+02:00 (7 years ago)
Author:
gm
Message:

#1911 (ENHANCE-09): PART I.2 - _NONE option + remove zts + see associated wiki page

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/nemogcm.F90

    r8367 r8568  
    206206#if defined key_agrif 
    207207      IF( .NOT. Agrif_Root() ) THEN 
    208                          CALL Agrif_ParentGrid_To_ChildGrid() 
    209          IF( ln_diaobs ) CALL dia_obs_wri 
    210          IF( nn_timing == 1 )   CALL timing_finalize 
    211                                 CALL Agrif_ChildGrid_To_ParentGrid() 
    212       ENDIF 
    213 #endif 
    214       IF( nn_timing == 1 )   CALL timing_finalize 
     208                           CALL Agrif_ParentGrid_To_ChildGrid() 
     209         IF( ln_diaobs )   CALL dia_obs_wri 
     210         IF( ln_timing )   CALL timing_finalize 
     211                           CALL Agrif_ChildGrid_To_ParentGrid() 
     212      ENDIF 
     213#endif 
     214      IF( ln_timing    )   CALL timing_finalize 
    215215      ! 
    216216      CALL nemo_closefile 
     
    242242      NAMELIST/namctl/ ln_ctl   , nn_print, nn_ictls, nn_ictle,   & 
    243243         &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,   & 
    244          &             nn_timing, nn_diacfl 
     244         &             ln_timing, ln_diacfl 
    245245      NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_write_cfg, cn_domcfg_out, ln_use_jattr 
    246246      !!---------------------------------------------------------------------- 
     
    416416      ENDIF 
    417417      ! 
    418       IF( nn_timing == 1 )  CALL timing_init 
     418      IF( ln_timing    )   CALL timing_init 
    419419      ! 
    420420      !                                      ! General initialization 
    421                             CALL     phy_cst    ! Physical constants 
    422                             CALL     eos_init   ! Equation of state 
    423       IF( lk_c1d        )   CALL     c1d_init   ! 1D column configuration 
    424                             CALL     wad_init   ! Wetting and drying options 
    425                             CALL     dom_init   ! Domain 
    426       IF( ln_crs        )   CALL     crs_init   ! coarsened grid: domain initialization  
    427       IF( ln_nnogather )    CALL nemo_northcomms! northfold neighbour lists (must be done after the masks are defined) 
    428       IF( ln_ctl        )   CALL prt_ctl_init   ! Print control 
     421                           CALL     phy_cst    ! Physical constants 
     422                           CALL     eos_init   ! Equation of state 
     423      IF( lk_c1d       )   CALL     c1d_init   ! 1D column configuration 
     424                           CALL     wad_init   ! Wetting and drying options 
     425                           CALL     dom_init   ! Domain 
     426      IF( ln_crs       )   CALL     crs_init   ! coarsened grid: domain initialization  
     427      IF( ln_nnogather )   CALL nemo_northcomms! northfold neighbour lists (must be done after the masks are defined) 
     428      IF( ln_ctl       )   CALL prt_ctl_init   ! Print control 
    429429       
    430430      CALL diurnal_sst_bulk_init             ! diurnal sst 
     
    432432       
    433433      ! IF ln_diurnal_only, then we only want a subset of the initialisation routines 
    434       IF ( ln_diurnal_only ) THEN 
     434      IF( ln_diurnal_only ) THEN 
    435435         CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
    436436         CALL     sbc_init   ! Forcings : surface module 
    437437         CALL tra_qsr_init   ! penetrative solar radiation qsr 
    438          IF( ln_diaobs     ) THEN                  ! Observation & model comparison 
    439             CALL dia_obs_init            ! Initialize observational data 
    440             CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
     438         IF( ln_diaobs ) THEN                   ! Observation & model comparison 
     439            CALL dia_obs_init                      ! Initialize observational data 
     440            CALL dia_obs( nit000 - 1 )             ! Observation operator for restart 
    441441         ENDIF      
    442442         !                                     ! Assimilation increments 
    443          IF( lk_asminc     )   CALL asm_inc_init   ! Initialize assimilation increments 
     443         IF( lk_asminc )   CALL asm_inc_init   ! Initialize assimilation increments 
    444444                  
    445445         IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 
     
    447447      ENDIF 
    448448       
    449                             CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
     449                           CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
    450450 
    451451      !                                      ! external forcing  
    452452!!gm to be added : creation and call of sbc_apr_init 
    453                             CALL    tide_init   ! tidal harmonics 
    454                             CALL     sbc_init   ! surface boundary conditions (including sea-ice) 
    455                             CALL     bdy_init   ! Open boundaries initialisation 
     453                           CALL    tide_init   ! tidal harmonics 
     454                           CALL     sbc_init   ! surface boundary conditions (including sea-ice) 
     455                           CALL     bdy_init   ! Open boundaries initialisation 
    456456 
    457457      !                                      ! Ocean physics 
    458                             CALL zdf_phy_init   ! Vertical physics 
     458                           CALL zdf_phy_init    ! Vertical physics 
    459459                                      
    460460      !                                         ! Lateral physics 
    461                             CALL ldf_tra_init      ! Lateral ocean tracer physics 
    462                             CALL ldf_eiv_init      ! eddy induced velocity param. 
    463                             CALL ldf_dyn_init      ! Lateral ocean momentum physics 
     461                           CALL ldf_tra_init      ! Lateral ocean tracer physics 
     462                           CALL ldf_eiv_init      ! eddy induced velocity param. 
     463                           CALL ldf_dyn_init      ! Lateral ocean momentum physics 
    464464 
    465465      !                                      ! Active tracers 
    466                             CALL tra_qsr_init      ! penetrative solar radiation qsr 
    467                             CALL tra_bbc_init      ! bottom heat flux 
    468       IF( ln_trabbl     )   CALL tra_bbl_init      ! advective (and/or diffusive) bottom boundary layer scheme 
    469                             CALL tra_dmp_init      ! internal tracer damping 
    470                             CALL tra_adv_init      ! horizontal & vertical advection 
    471                             CALL tra_ldf_init      ! lateral mixing 
     466                           CALL tra_qsr_init      ! penetrative solar radiation qsr 
     467                           CALL tra_bbc_init      ! bottom heat flux 
     468      IF( ln_trabbl    )   CALL tra_bbl_init      ! advective (and/or diffusive) bottom boundary layer scheme 
     469                           CALL tra_dmp_init      ! internal tracer damping 
     470                           CALL tra_adv_init      ! horizontal & vertical advection 
     471                           CALL tra_ldf_init      ! lateral mixing 
    472472 
    473473      !                                      ! Dynamics 
    474       IF( lk_c1d        )   CALL dyn_dmp_init      ! internal momentum damping 
    475                             CALL dyn_adv_init      ! advection (vector or flux form) 
    476                             CALL dyn_vor_init      ! vorticity term including Coriolis 
    477                             CALL dyn_ldf_init      ! lateral mixing 
    478                             CALL dyn_hpg_init      ! horizontal gradient of Hydrostatic pressure 
    479                             CALL dyn_spg_init      ! surface pressure gradient 
     474      IF( lk_c1d       )   CALL dyn_dmp_init      ! internal momentum damping 
     475                           CALL dyn_adv_init      ! advection (vector or flux form) 
     476                           CALL dyn_vor_init      ! vorticity term including Coriolis 
     477                           CALL dyn_ldf_init      ! lateral mixing 
     478                           CALL dyn_hpg_init      ! horizontal gradient of Hydrostatic pressure 
     479                           CALL dyn_spg_init      ! surface pressure gradient 
    480480 
    481481#if defined key_top 
    482482      !                                      ! Passive tracers 
    483                             CALL     trc_init 
    484 #endif 
    485       IF( l_ldfslp      )   CALL ldf_slp_init   ! slope of lateral mixing 
     483                           CALL     trc_init 
     484#endif 
     485      IF( l_ldfslp     )   CALL ldf_slp_init    ! slope of lateral mixing 
    486486 
    487487      !                                      ! Icebergs 
    488                             CALL icb_init( rdt, nit000)   ! initialise icebergs instance 
     488                           CALL icb_init( rdt, nit000)   ! initialise icebergs instance 
    489489 
    490490      !                                      ! Misc. options 
    491                             CALL sto_par_init   ! Stochastic parametrization 
    492       IF( ln_sto_eos     )  CALL sto_pts_init   ! RRandom T/S fluctuations 
     491                           CALL sto_par_init    ! Stochastic parametrization 
     492      IF( ln_sto_eos   )   CALL sto_pts_init    ! RRandom T/S fluctuations 
    493493      
    494494      !                                      ! Diagnostics 
    495       IF( lk_floats     )   CALL     flo_init   ! drifting Floats 
    496                             CALL dia_cfl_init   ! Initialise CFL diagnostics 
    497                             CALL dia_ptr_init   ! Poleward TRansports initialization 
    498       IF( lk_diadct     )   CALL dia_dct_init   ! Sections tranports 
    499                             CALL dia_hsb_init   ! heat content, salt content and volume budgets 
    500                             CALL     trd_init   ! Mixed-layer/Vorticity/Integral constraints trends 
    501                             CALL dia_obs_init            ! Initialize observational data 
    502       IF( ln_diaobs     )   CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
     495      IF( lk_floats    )   CALL     flo_init    ! drifting Floats 
     496      IF( ln_diacfl    )   CALL dia_cfl_init    ! Initialise CFL diagnostics 
     497                           CALL dia_ptr_init    ! Poleward TRansports initialization 
     498      IF( lk_diadct    )   CALL dia_dct_init    ! Sections tranports 
     499                           CALL dia_hsb_init    ! heat content, salt content and volume budgets 
     500                           CALL     trd_init    ! Mixed-layer/Vorticity/Integral constraints trends 
     501                           CALL dia_obs_init    ! Initialize observational data 
     502      IF( ln_diaobs    )   CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
    503503 
    504504      !                                      ! Assimilation increments 
    505       IF( lk_asminc     )   CALL asm_inc_init   ! Initialize assimilation increments 
     505      IF( lk_asminc    )   CALL asm_inc_init    ! Initialize assimilation increments 
    506506      IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 
    507                             CALL dia_tmb_init  ! TMB outputs 
    508                             CALL dia_25h_init  ! 25h mean  outputs 
     507                           CALL dia_tmb_init    ! TMB outputs 
     508                           CALL dia_25h_init    ! 25h mean  outputs 
    509509      ! 
    510510   END SUBROUTINE nemo_init 
     
    533533         WRITE(numout,*) '      number of proc. following i     nn_isplt   = ', nn_isplt 
    534534         WRITE(numout,*) '      number of proc. following j     nn_jsplt   = ', nn_jsplt 
    535          WRITE(numout,*) '      timing activated    (0/1)       nn_timing  = ', nn_timing 
     535         WRITE(numout,*) '      timing by routine               ln_timing  = ', ln_timing 
     536         WRITE(numout,*) '      CFL diagnostics                 ln_diacfl  = ', ln_diacfl 
    536537      ENDIF 
    537538      ! 
     
    543544      isplt     = nn_isplt 
    544545      jsplt     = nn_jsplt 
     546!!gm to be remove at the end of the 2017 merge party 
     547      if( ln_timing ) then  ;  nn_timing = 1 
     548      else                  ;  nn_timing = 0 
     549      endif 
     550!!gm end 
     551       
    545552 
    546553      IF(lwp) THEN                  ! control print 
Note: See TracChangeset for help on using the changeset viewer.