Changeset 2885 for trunk/LMDZ.COMMON/libf/evolution/criterion_ice_stop_mod_slope.F90

Timestamp:

Jan 31, 2023, 9:52:30 PM (22 months ago)

Author:

romain.vande

Message:

Mars PCM:
Move a endif misplaced
RV

File:

• trunk/LMDZ.COMMON/libf/evolution/criterion_ice_stop_mod_slope.F90 (modified) (4 diffs)

trunk/LMDZ.COMMON/libf/evolution/criterion_ice_stop_mod_slope.F90

@@ -2 +2 @@
 ! $Id $
 !
-SUBROUTINE criterion_ice_stop_slope(cell_area,ini_surf,qsurf,STOPPING,ngrid,initial_h2o_ice,global_ave_press_GCM,global_ave_press_new,nslope)
+SUBROUTINE criterion_ice_stop_slope(cell_area,ini_surf,qsurf,STOPPING,STOPPING_ps,ngrid,initial_h2o_ice,global_ave_press_GCM,global_ave_press_new,nslope)
 
   USE temps_mod_evol, ONLY: alpha_criterion
@@ -28 +28 @@
 
 !   OUTPUT
-  LOGICAL, intent(out) :: STOPPING              ! Logical : is the criterion reached?
+  LOGICAL, intent(out) :: STOPPING,STOPPING_ps              ! Logical : is the criterion reached?
 
 !   local:
@@ -39 +39 @@
 !   initialisation to false
     STOPPING=.FALSE.
+    STOPPING_ps=.FALSE.
 
 !   computation of the actual surface
@@ -67 +68 @@
   if(global_ave_press_new.LT.global_ave_press_GCM*(0.9) .OR. &
      global_ave_press_new.GT.global_ave_press_GCM*(1.1)) then
-    STOPPING=.TRUE. 
+    STOPPING_ps=.TRUE. 
     print *, "Reason of stopping : The global pressure reach the threshold:"
     print *, "Current global pressure=", global_ave_press_new