Changeset 2883 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Jan 31, 2023, 7:54:07 PM (2 years ago)

Author:

romain.vande

Message:

Mars PCM:
Small fix : move an endif misplaced for watercap
RV

File:

• trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90 (modified) (2 diffs)

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

@@ -603 +603 @@
                           "<watercap> is set to zero"
      watercap(:)=0
-
+   endif ! of if (.not.found)
      write(*,*) 'Now transfer negative surface water ice to', &
                 ' watercap !'
@@ -628 +628 @@
       enddo
      endif ! of if (nq.ge.1)
-   endif ! of if (.not.found)
 else
    watercap(:)=0