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 8234 for branches/2017 – NEMO

Changeset 8234 for branches/2017


Ignore:
Timestamp:
2017-06-28T14:50:59+02:00 (7 years ago)
Author:
clem
Message:

change e12 for e1e2 in limtrp.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r8233 r8234  
    266266            ! MV MP 2016 
    267267            IF ( nn_pnd_scheme > 0 ) THEN 
    268                z0ap  (:,:,jl)  = a_ip (:,:,jl) * e12t(:,:) ! Melt pond fraction 
    269                z0vp  (:,:,jl)  = v_ip (:,:,jl) * e12t(:,:) ! Melt pond volume 
     268               z0ap  (:,:,jl)  = a_ip (:,:,jl) * e1e2t(:,:) ! Melt pond fraction 
     269               z0vp  (:,:,jl)  = v_ip (:,:,jl) * e1e2t(:,:) ! Melt pond volume 
    270270            ENDIF 
    271271            ! END MV MP 2016 
     
    396396            ! MV MP 2016 
    397397            IF ( nn_pnd_scheme > 0 ) THEN 
    398                a_ip  (:,:,jl)   = z0ap (:,:,jl) * r1_e12t(:,:) 
    399                v_ip  (:,:,jl)   = z0vp (:,:,jl) * r1_e12t(:,:) 
     398               a_ip  (:,:,jl)   = z0ap (:,:,jl) * r1_e1e2t(:,:) 
     399               v_ip  (:,:,jl)   = z0vp (:,:,jl) * r1_e1e2t(:,:) 
    400400            ENDIF 
    401401            ! END MV MP 2016 
Note: See TracChangeset for help on using the changeset viewer.