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 4742 for branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2014-08-14T11:05:30+02:00 (10 years ago)
Author:
rfurner
Message:

turning of vertical mixing etc

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/step.F90

    r4708 r4742  
    187187          IF(.NOT. Agrif_Root())  CALL Agrif_Sponge_dyn        ! momentum sponge 
    188188#endif 
    189                                   CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure 
     189!                                  CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure 
    190190                                  CALL dyn_spg( kstp, indic )  ! surface pressure gradient 
    191191 
    … …  
    273273 
    274274                               CALL dyn_bfr( kstp )         ! bottom friction 
     275#if ! defined key_surge 
    275276                               CALL dyn_zdf( kstp )         ! vertical diffusion 
     277#endif 
    276278      ELSE 
    277279                               ua(:,:,:) = 0.e0             ! set dynamics trends to zero 
    … …  
    290292        IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_dyn        ! momemtum sponge 
    291293#endif 
    292                                CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure 
     294!                               CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure 
    293295                               CALL dyn_bfr( kstp )         ! bottom friction 
     296#if ! defined key_surge 
    294297                               CALL dyn_zdf( kstp )         ! vertical diffusion 
     298#endif 
    295299                               CALL dyn_spg( kstp, indic )  ! surface pressure gradient 
    296300      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.