Changeset 3039 for trunk/LMDZ.COMMON/libf/evolution/criterion_pem_stop_mod.F90

Timestamp:

Sep 11, 2023, 12:41:50 PM (18 months ago)

Author:

jbclement

Message:

Mars PEM:
Big cleaning of main program pem.F90 (indentation, declarations, comments, simplification of conditions/loops, etc).
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/criterion_pem_stop_mod.F90 (modified) (2 diffs)

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

@@ -15 +15 @@
 SUBROUTINE criterion_waterice_stop(cell_area,ini_surf,qsurf,STOPPING,ngrid,initial_h2o_ice)
 
-  USE temps_mod_evol, ONLY: water_ice_criterion
-  use comslope_mod, ONLY: subslope_dist,nslope
+  use time_evol_mod, only: water_ice_criterion
+  use comslope_mod,  only: subslope_dist,nslope
 
       IMPLICIT NONE
@@ -79 +79 @@
 SUBROUTINE criterion_co2_stop(cell_area,ini_surf,qsurf,STOPPING_ice,STOPPING_ps,ngrid,initial_co2_ice,global_ave_press_GCM,global_ave_press_new,nslope)
 
-  USE temps_mod_evol, ONLY: co2_ice_criterion,ps_criterion
-  use comslope_mod, ONLY: subslope_dist
+  use time_evol_mod, only: co2_ice_criterion,ps_criterion
+  use comslope_mod,  only: subslope_dist
 
       IMPLICIT NONE