Ignore:
Timestamp:
2019-01-16T14:17:50+01:00 (19 months ago)
Author:
clem
Message:

remove nn_virtual_itd options and replace them by ln_virtual_itd

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icedyn_rdgrft.F90

    r10511 r10531  
    586586                  &                                      + rhos * vsrft(ji) * ( 1._wp - rn_fsnwrft ) ) * r1_rdtice 
    587587 
    588                ! Put the melt pond water into the ocean 
    589                ! clem: I think the following lines must be commented since there 
    590                !       is no net mass flux between melt ponds and the ocean (see icethd_pnd.F90 for ex.) 
    591                !IF ( ln_pnd_fwb ) THEN 
    592                !   wfx_pnd_1d(ji) = wfx_pnd_1d(ji) + ( rhow * vprdg(ji) * ( 1._wp - rn_fpndrdg )   &        ! fresh water source for ocean 
    593                !      &                              + rhow * vprft(ji) * ( 1._wp - rn_fpndrft ) ) * r1_rdtice 
    594                !ENDIF 
    595  
    596588               ! virtual salt flux to keep salinity constant 
    597589               IF( nn_icesal /= 2 )  THEN 
Note: See TracChangeset for help on using the changeset viewer.