Ignore:
Timestamp:
2017-05-29T16:58:42+02:00 (3 years ago)
Author:
vancop
Message:

More on melt ponds in LIM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r8063 r8085  
    608608            esrdg (ij) = e_s  (ji,jj,1,jl1) * afrac(ij) 
    609609            !MV MP 2016 
    610             IF ( nn_pnd_scheme > 1 ) THEN 
     610            IF ( nn_pnd_scheme > 0 ) THEN 
    611611               vprdg(ij) = v_ip(ji,jj, jl1) * afrac(ij) 
    612612            ENDIF 
     
    620620            vsrft (ij) = v_s  (ji,jj,  jl1) * afrft(ij) 
    621621            !MV MP 2016 
    622             IF ( nn_pnd_scheme > 1 ) THEN 
     622            IF ( nn_pnd_scheme > 0 ) THEN 
    623623               vprft(ij) = v_ip(ji,jj,jl1) * afrft(ij) 
    624624            ENDIF 
     
    665665            !------------------------------------------             
    666666            !  Place part of the melt pond volume into the ocean.  
    667             IF ( ( nn_pnd_scheme > 0 ) .AND. ( ( nn_pnd_cpl == 1 ) .OR. ( nn_pnd_cpl == 3 ) ) ) 
     667            IF ( ( nn_pnd_scheme > 0 ) .AND. ( ( nn_pnd_cpl == 1 ) .OR. ( nn_pnd_cpl == 3 ) ) ) THEN 
    668668               wfx_pnd(ji,jj) = wfx_pnd(ji,jj) + ( rhofw * vprdg(ij) * ( 1._wp - rn_fpondrdg )   &  
    669669               &                                 + rhofw * vprft(ij) * ( 1._wp - rn_fpondrft ) ) * r1_rdtice  ! fresh water source for ocean 
Note: See TracChangeset for help on using the changeset viewer.