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 5845 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2015-10-31T08:40:45+01:00 (8 years ago)
Author:
gm
Message:

#1613: vvl by default: suppression of domzgr_substitute.h90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/step.F90

    r5836 r5845  
    4141   PUBLIC   stp   ! called by nemogcm.F90 
    4242 
    43    !! * Substitutions 
    44 #  include "domzgr_substitute.h90" 
    45 !!gm   #  include "zdfddm_substitute.h90" 
    4643   !!---------------------------------------------------------------------- 
    4744   !! NEMO/OPA 3.7 , NEMO Consortium (2015) 
    … …  
    192189            IF(ln_sto_eos ) CALL sto_pts( tsn )                             ! Random T/S fluctuations 
    193190!!gm 
    194                             CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) ) ! now in situ density for hpg computation 
     191                            CALL eos    ( tsn, rhd, rhop, gdept_n(:,:,:) ) ! now in situ density for hpg computation 
    195192                             
    196193            IF( ln_zps .AND. .NOT. ln_isfcav)   &                           ! Partial steps: bottom before horizontal gradient 
    … …  
    275272            IF( ln_sto_eos ) CALL sto_pts( tsn )                 ! Random T/S fluctuations 
    276273!!gm 
    277                              CALL eos    ( tsa, rhd, rhop, fsdept_n(:,:,:) )  ! Time-filtered in situ density for hpg computation 
     274                             CALL eos    ( tsa, rhd, rhop, gdept_n(:,:,:) )   ! Time-filtered in situ density for hpg computation 
    278275            IF( ln_zps .AND. .NOT. ln_isfcav)                                & 
    279                &             CALL zps_hde    ( kstp, jpts, tsa, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
     276               &             CALL zps_hde    ( kstp, jpts, tsa, gtsu, gtsv,  &  ! Partial steps: before horizontal gradient 
    280277               &                                           rhd, gru , grv    )  ! of t, s, rd at the last ocean level 
    281278            IF( ln_zps .AND.       ln_isfcav)                                & 
    … …  
    288285            IF( ln_sto_eos ) CALL sto_pts( tsn )    ! Random T/S fluctuations 
    289286!!gm 
    290                              CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) )  ! now in situ density for hpg computation 
     287                             CALL eos    ( tsn, rhd, rhop, gdept_n(:,:,:) )  ! now in situ density for hpg computation 
    291288         IF( ln_zps .AND. .NOT. ln_isfcav)                                   & 
    292289               &             CALL zps_hde    ( kstp, jpts, tsn, gtsu, gtsv,  &    ! Partial steps: bottom before horizontal gradient 
Note: See TracChangeset for help on using the changeset viewer.