Changeset 4742


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

turning of vertical mixing etc

Location:
branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r4624 r4742  
    115115         ioptio = ioptio+1 
    116116      ENDIF 
    117       IF( ioptio == 0 .OR. ioptio > 1 .AND. .NOT. lk_esopa )   & 
    118          &   CALL ctl_stop( ' one and only one vertical diffusion option has to be defined ' ) 
     117      IF( ioptio > 1 .AND. .NOT. lk_esopa )   & 
     118         &   CALL ctl_stop( 'only one vertical diffusion option has to be defined ' ) 
     119      IF( ioptio == 0 .AND. .NOT. ( lk_esopa .OR. lk_surge ) )   & 
     120         &   CALL ctl_stop( 'a vertical diffusion option has to be defined ' ) 
    119121      ! 
    120122      !                               ! ... Convection 
     
    144146      ENDIF 
    145147      IF ( ioptio > 1 .AND. .NOT. lk_esopa )   CALL ctl_stop( ' chose between ln_zdfnpc and ln_zdfevd' ) 
    146       IF( ioptio == 0 .AND. .NOT.( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp ) )           & 
    147          CALL ctl_stop( ' except for TKE, GLS or KPP physics, a convection scheme is',   & 
     148      IF( ioptio == 0 .AND. .NOT.( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp .OR. lk_surge ) )           & 
     149         CALL ctl_stop( ' except for TKE, GLS or KPP physics (or running in surge mode), a convection scheme is',   & 
    148150         &              ' required: ln_zdfevd or ln_zdfnpc logicals' ) 
    149151 
  • 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.