Changeset 2892


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
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/README

    r2886 r2892  
    38573857A file containing information about number of iteration and reason of stopping of the PEM can be outputed (info_run_PEM.def)
    38583858
     3859== 10/02/2023 == RV
     3860Change back the modification of r2883 to its original form + Retrocompatibility for icelocation_mode.ne.5 in surfini
     3861

  • 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.