Changeset 8264


Ignore:
Timestamp:
2017-06-30T16:37:22+02:00 (4 years ago)
Author:
niall
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_debug/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r8263 r8264  
    405405                            CALL  istate_init   ! ocean initial state (Dynamics and tracers) 
    406406 
    407       IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
    408  
    409                             CALL     sbc_init   ! Forcings : surface module (clem: moved here for bdy purpose) 
     407      !IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
     408 
     409      !                      CALL     sbc_init   ! Forcings : surface module (clem: moved here for bdy purpose) 
    410410 
    411411      !IF( lk_bdy        )   CALL     bdy_init   ! Open boundaries initialisation 
     
    430430         &                  CALL zdf_ddm_init      ! double diffusive mixing 
    431431      !                                         ! Lateral physics 
    432                             CALL ldf_tra_init      ! Lateral ocean tracer physics 
    433                             CALL ldf_dyn_init      ! Lateral ocean momentum physics 
     432      !                      CALL ldf_tra_init      ! Lateral ocean tracer physics 
     433      !                      CALL ldf_dyn_init      ! Lateral ocean momentum physics 
    434434      IF( lk_ldfslp     )   CALL ldf_slp_init      ! slope of lateral mixing 
    435435 
    436436      !                                     ! Active tracers 
    437                             CALL tra_qsr_init   ! penetrative solar radiation qsr 
    438                             CALL tra_bbc_init   ! bottom heat flux 
     437      !                      CALL tra_qsr_init   ! penetrative solar radiation qsr 
     438      !                      CALL tra_bbc_init   ! bottom heat flux 
    439439      IF( lk_trabbl     )   CALL tra_bbl_init   ! advective (and/or diffusive) bottom boundary layer scheme 
    440                             CALL tra_dmp_init   ! internal damping trends- tracers 
    441                             CALL tra_adv_init   ! horizontal & vertical advection 
    442                             CALL tra_ldf_init   ! lateral mixing 
    443                             CALL tra_zdf_init   ! vertical mixing and after tracer fields 
     440      !                      CALL tra_dmp_init   ! internal damping trends- tracers 
     441      !                      CALL tra_adv_init   ! horizontal & vertical advection 
     442      !                      CALL tra_ldf_init   ! lateral mixing 
     443      !                      CALL tra_zdf_init   ! vertical mixing and after tracer fields 
    444444 
    445445      !                                     ! Dynamics 
Note: See TracChangeset for help on using the changeset viewer.