Ignore:
Timestamp:
2020-04-09T21:06:01+02:00 (11 months ago)
Author:
techene
Message:

some cleaning and proper module/routine name, mini bug introduced and corrected in sbcice_cice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/ISF/isfcpl.F90

    r12731 r12732  
    1818   USE domvvl  , ONLY: dom_vvl_zgr      ! vertical scale factor interpolation 
    1919#else 
    20    USE domqe   , ONLY: dom_qe_zgr      ! vertical scale factor interpolation 
     20   USE domqco   , ONLY: dom_qco_zgr      ! vertical scale factor interpolation 
    2121#endif 
    2222   USE domngb  , ONLY: dom_ngb          ! find the closest grid point from a given lon/lat position 
     
    142142      !!---------------------------------------------------------------------- 
    143143      INTEGER :: jk                               ! loop index 
    144       REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, ze3u, ze3v, zgdepw  ! e3t , e3u, e3v 
    145       !!---------------------------------------------------------------------- 
    146       ! 
    147 !!st patch to be able to use substitution 
     144      REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, ze3u, ze3v, zgdepw  ! e3t , e3u, e3v !!st patch to use substitution 
     145      !!---------------------------------------------------------------------- 
     146      ! 
    148147      DO jk = 1, jpk 
    149148         ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 
    150149         ze3u(:,:,jk) = e3u(:,:,jk,Kmm) 
    151150         ze3v(:,:,jk) = e3v(:,:,jk,Kmm) 
     151         ! 
    152152         zgdepw(:,:,jk) = gdepw(:,:,jk,Kmm) 
    153153      END DO  
     
    233233      CALL dom_vvl_zgr(Kbb, Kmm, Kaa) 
    234234#else 
    235       CALL dom_qe_zgr(Kbb, Kmm, Kaa) 
     235      CALL dom_qco_zgr(Kbb, Kmm, Kaa) 
    236236#endif 
    237237      ! 
Note: See TracChangeset for help on using the changeset viewer.