Changeset 2892 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Feb 10, 2023, 12:09:03 PM (22 months ago)
Author:
romain.vande
Message:

Mars PEM:
Change back the modification of r2883 to its original form + Retrocompatibility of icelocation_mode.ne.5 in surfini
RV

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

    r2887 r2892  
    607607                          "<watercap> is set to zero"
    608608     watercap(:)=0
    609    endif ! of if (.not.found)
    610609     write(*,*) 'Now transfer negative surface water ice to', &
    611610                ' watercap !'
    … …  
    632631      enddo
    633632     endif ! of if (nq.ge.1)
     633   endif ! of if (.not.found)
    634634else
    635635   watercap(:)=0

  • trunk/LMDZ.MARS/libf/phymars/surfini.F

    r2884 r2892  
    142142         
    143143         if (ngrid .ne. 1) then
    144 !           watercaptag(:) = .false.
     144           IF (icelocationmode .ne. 5) then
     145             watercaptag(:) = .false.
     146           ENDIF
    145147           longwatercaptag(:) = .false.
    146148         endif
Note: See TracChangeset for help on using the changeset viewer.