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

Ignore:
Timestamp:
2014-09-29T15:58:28+02:00 (10 years ago)
Author:
rfurner
Message:

commited changes to run as 1 vertical level, added simple hpg option for basic surge set up

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4742 r4794  
    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 
    … …  
    292292        IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_dyn        ! momemtum sponge 
    293293#endif 
    294 !                               CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure 
     294                               CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure 
    295295                               CALL dyn_bfr( kstp )         ! bottom friction 
    296296#if ! defined key_surge 
Note: See TracChangeset for help on using the changeset viewer.