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 13732 – NEMO

Changeset 13732


Ignore:
Timestamp:
2020-11-06T10:20:56+01:00 (3 years ago)
Author:
techene
Message:

#2385 clean dom_qco_zgr : Kaa is no longer needed as an argument

Location:
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/ICE/iceistate.F90

    r13430 r13732  
    432432         ! 
    433433#if defined key_qco 
    434          IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm, Kaa )   ! interpolation scale factor, depth and water column 
     434         IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm )        ! interpolation scale factor, depth and water column 
    435435#else 
    436436         IF( .NOT.ln_linssh )   CALL dom_vvl_zgr( Kbb, Kmm, Kaa )   ! interpolation scale factor, depth and water column 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/NST/agrif_oce_update.F90

    r13693 r13732  
    238238 
    239239      ! Update r3x arrays from updated ssh 
    240       CALL dom_qco_zgr( Kbb_a, Kmm_a, Krhs_a ) 
     240      CALL dom_qco_zgr( Kbb_a, Kmm_a ) 
    241241      ! 
    242242   END SUBROUTINE Agrif_Update_qco 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domqco.F90

    r13683 r13732  
    9494      CALL qco_rst_read( nit000, Kbb, Kmm )   ! Read or initialize ssh_(Kbb/Kmm) 
    9595      ! 
    96       CALL dom_qco_zgr( Kbb, Kmm, Kaa )       ! interpolation scale factor, depth and water column 
     96      CALL dom_qco_zgr( Kbb, Kmm )            ! interpolation scale factor, depth and water column 
    9797      ! 
    9898#if defined key_agrif 
    … …  
    112112 
    113113 
    114    SUBROUTINE dom_qco_zgr( Kbb, Kmm, Kaa ) 
     114   SUBROUTINE dom_qco_zgr( Kbb, Kmm ) 
    115115      !!---------------------------------------------------------------------- 
    116116      !!                ***  ROUTINE dom_qco_init  *** 
    … …  
    123123      !!              - r3(t/u/v/f)_n 
    124124      !!---------------------------------------------------------------------- 
    125       INTEGER, INTENT(in) ::   Kbb, Kmm, Kaa   ! time level indices 
     125      INTEGER, INTENT(in) ::   Kbb, Kmm   ! time level indices 
    126126      !!---------------------------------------------------------------------- 
    127127      ! 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfcpl.F90

    r13295 r13732  
    233233      CALL dom_vvl_zgr(Kbb, Kmm, Kaa) 
    234234#else 
    235       CALL dom_qco_zgr(Kbb, Kmm, Kaa) 
     235      CALL dom_qco_zgr(Kbb, Kmm) 
    236236#endif 
    237237      ! 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/SBC/sbcice_cice.F90

    r13427 r13732  
    238238!!gm especially here it is assumed zstar coordinate, but it can be ztilde.... 
    239239#if defined key_qco 
    240             IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm, Kaa )   ! interpolation scale factor, depth and water column 
     240            IF( .NOT.ln_linssh )   CALL dom_qco_zgr( Kbb, Kmm )   ! interpolation scale factor, depth and water column 
    241241#else 
    242242            IF( .NOT.ln_linssh ) THEN 
Note: See TracChangeset for help on using the changeset viewer.