Changeset 3308 for trunk

Timestamp:

Apr 19, 2024, 7:17:31 PM (7 months ago)

Author:

jbclement

Message:

PEM:
Few small corrections to make the PEM work in 3D, in particular concerning the initialization of the planet type and the evolution of ice with slopes.
JBC

Location:

trunk

Files:

• LMDZ.COMMON/libf/evolution/changelog.txt (modified) (1 diff)
• LMDZ.COMMON/libf/evolution/deftank/run_PEM.def (modified) (1 diff)
• LMDZ.COMMON/libf/evolution/evol_ice_mod.F90 (modified) (4 diffs)
• LMDZ.COMMON/libf/evolution/glaciers_mod.F90 (modified) (1 diff)
• LMDZ.COMMON/libf/evolution/layering_mod.F90 (modified) (3 diffs)
• LMDZ.COMMON/libf/evolution/pem.F90 (modified) (3 diffs)
• LMDZ.COMMON/libf/evolution/pemetat0.F90 (modified) (3 diffs)
• LMDZ.MARS/libf/phymars/phyredem.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -277 +277 @@
 == 15/04/2024 == JBC
 Update of "output_layering.py" in the deftank.
+
+== 19/04/2024 == JBC
+Few small corrections to make the PEM work in 3D, in particular concerning the initialization of the planet type and the evolution of ice with slopes.

trunk/LMDZ.COMMON/libf/evolution/deftank/run_PEM.def

@@ -1 @@
-#
-#-------------------------------------
-# Run control parameters for the PEM
-#-------------------------------------
+#------------------------------------#
+# Run control parameters for the PEM #
+#------------------------------------#
+
+#---------- Planet type ----------#
+planet_type=mars
 
 #---------- Output parameters ----------#

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

@@ -28 +28 @@
 
 !   local:
-!   ----
+!   ------
 
 !=======================================================================
@@ -105 +105 @@
         enddo
     enddo
-    ! We adapt the tendencies to conserve h2o and do only exchange between grid points
-    if (neg_tend > pos_tend .and. pos_tend > 0.) then ! More sublimation on the planet than condensation
-        where (tend_h2o_ice < 0.) ! We lower the sublimating rate by a coefficient
-            new_tendencies = tend_h2o_ice*pos_tend/neg_tend
-        elsewhere ! We don't change the condensing rate
-            new_tendencies = tend_h2o_ice
-        end where
-    else if (neg_tend < pos_tend .and. neg_tend > 0.) then ! More condensation on the planet than sublimation
-        where (tend_h2o_ice < 0.) ! We don't change the sublimating rate
-            new_tendencies = tend_h2o_ice
-        elsewhere ! We lower the condensing rate by a coefficient
-            new_tendencies = tend_h2o_ice*neg_tend/pos_tend
-        end where
-    else if (abs(pos_tend) < 1.e-10 .or. abs(neg_tend) == 1.e-10) then
-        write(*,*) "Reason of stopping: there is no sublimating or condensing h20 ice!"
+
+    if (abs(pos_tend) < 1.e-10 .or. abs(neg_tend) < 1.e-10) then
+        write(*,*) "Reason of stopping: there is no sublimating or condensing h2o ice!"
         write(*,*) "Tendencies on ice sublimating =", neg_tend
         write(*,*) "Tendencies on ice increasing =", pos_tend
@@ -125 +113 @@
         stopPEM = 2
         new_tendencies = 0.
+    else
+        ! We adapt the tendencies to conserve h2o and do only exchange between grid points
+        if (neg_tend > pos_tend .and. pos_tend > 0.) then ! More sublimation on the planet than condensation
+            where (tend_h2o_ice < 0.) ! We lower the sublimating rate by a coefficient
+                new_tendencies = tend_h2o_ice*pos_tend/neg_tend
+            elsewhere ! We don't change the condensing rate
+                new_tendencies = tend_h2o_ice
+            end where
+        else if (neg_tend < pos_tend .and. neg_tend > 0.) then ! More condensation on the planet than sublimation
+            where (tend_h2o_ice < 0.) ! We don't change the sublimating rate
+                new_tendencies = tend_h2o_ice
+            elsewhere ! We lower the condensing rate by a coefficient
+                new_tendencies = tend_h2o_ice*neg_tend/pos_tend
+            end where
+        endif
     endif
 
@@ -150 +153 @@
     endif
     ! In the place of accumulation of ice, we remove a bit of ice in order to conserve h2o
-    where (new_tendencies > 0.) h2o_ice = h2o_ice - new_tendencies*real_coefficient*dt_pem*cos(def_slope_mean(islope)*pi/180.)
+    do islope = 1,nslope
+        do i = 1,ngrid
+             if (new_tendencies(i,islope) > 0.) h2o_ice(i,islope) = h2o_ice(i,islope) - new_tendencies(i,islope)*real_coefficient*dt_pem*cos(def_slope_mean(islope)*pi/180.)
+        enddo
+     enddo
 else ! ngrid == 1, i.e. in 1D
     h2o_ice = h2o_ice + tend_h2o_ice*dt_pem

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

@@ -5 +5 @@
 
 ! Flags for ice management
-logical :: h2oice_flow ! True by default, to compute H2O ice flow. Read in "run_PEM.def"
-logical :: co2ice_flow ! True by default, to compute CO2 ice flow. Read in "run_PEM.def"
+logical :: h2oice_flow  ! True by default, to compute H2O ice flow. Read in "run_PEM.def"
+logical :: co2ice_flow  ! True by default, to compute CO2 ice flow. Read in "run_PEM.def"
 logical :: metam_h2oice ! False by default, to compute H2O ice metamorphism. Read in "run_PEM.def"
 logical :: metam_co2ice ! False by default, to compute CO2 ice metamorphism. Read in "run_PEM.def"

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

@@ -536 +536 @@
 
 !------ Sublimation of CO2 ice + Condensation of H2O ice
-    else if (htend_co2ice < 0. .and. htend_h2oice >= 0. ) then
+    else if (htend_co2ice < 0. .and. htend_h2oice > 0.) then
         write(*,'(a)') ' Stratification -> Sublimation of CO2 ice + Condensation of H2O ice'
         ! CO2 ice sublimation in the considered stratum + New stratum for dust lag
@@ -577 +577 @@
 
 !------ Sublimation of CO2 ice + H2O ice
-    else if (htend_co2ice < 0. .and. htend_h2oice < 0.) then
+    else if ((htend_co2ice <= 0. .and. htend_h2oice < 0.) .or. (htend_co2ice < 0. .and. htend_h2oice <= 0.)) then
         write(*,'(a)') ' Stratification -> Sublimation of CO2 and H2O ice'
         ! CO2 ice sublimation in the considered stratum + New stratum for dust lag
@@ -633 +633 @@
 
 !------ Condensation of CO2 ice + Sublimation of H2O ice
-    else if (htend_co2ice >= 0. .and. htend_h2oice < 0.) then
+    else if (htend_co2ice > 0. .and. htend_h2oice < 0.) then
         error stop 'Impossible situation: CO2 ice condensation + H2O ice sublimation!'
     endif

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

@@ -351 +351 @@
     status = nf90_close(ncid)
 
-    call iniphysiq(iim,jjm,llm,(jjm-1)*iim+2,comm_lmdz,daysec,day_ini,dtphys/nsplit_phys,rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
+    call iniphysiq('startfi_evol.nc',iim,jjm,llm,(jjm-1)*iim+2,comm_lmdz,daysec,day_ini,dtphys/nsplit_phys,rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
 #else
     ps_start_PCM(1) = ps(1)
@@ -998 +998 @@
     ! H2O ice metamorphism
     if (metam_h2oice .and. sum(qsurf(ig,igcm_h2o_ice,:)*subslope_dist(ig,:)/cos(pi*def_slope_mean(:)/180.)) > metam_h2oice_threshold) then
-        h2o_ice(ig,:) = h2o_ice(ig,:) + qsurf(ig,igcm_h2o_ice,:) - metam_h2oice_threshold/subslope_dist(ig,:)*cos(pi*def_slope_mean(:)*180.)
-        qsurf(ig,igcm_h2o_ice,:) = metam_h2oice_threshold/subslope_dist(ig,:)*cos(pi*def_slope_mean(:)*180.)
+        h2o_ice(ig,:) = h2o_ice(ig,:) + qsurf(ig,igcm_h2o_ice,:) - metam_h2oice_threshold
+        qsurf(ig,igcm_h2o_ice,:) = metam_h2oice_threshold
     endif
 
@@ -1015 +1015 @@
     ! CO2 ice metamorphism
     if (metam_co2ice .and. sum(qsurf(ig,igcm_co2,:)*subslope_dist(ig,:)/cos(pi*def_slope_mean(:)/180.)) > metam_co2ice_threshold) then
-        perennial_co2ice(ig,:) = perennial_co2ice(ig,:) + qsurf(ig,igcm_co2,:) - metam_co2ice_threshold/subslope_dist(ig,:)*cos(pi*def_slope_mean(:)*180.)
-        qsurf(ig,igcm_co2,:) = metam_co2ice_threshold/subslope_dist(ig,:)*cos(pi*def_slope_mean(:)*180.)
+        perennial_co2ice(ig,:) = perennial_co2ice(ig,:) + qsurf(ig,igcm_co2,:) - metam_co2ice_threshold
+        qsurf(ig,igcm_co2,:) = metam_co2ice_threshold
     endif
 enddo

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

@@ -158 +158 @@
         write(*,*)'with default value ''ini_huge_h2oice'''
         do ig = 1,ngrid
-            if (watercaptag(ig)) h2o_ice(ig,:) = ini_huge_h2oice/subslope_dist(ig,:)*cos(pi*def_slope_mean(:)*180.)
+            if (watercaptag(ig)) h2o_ice(ig,:) = ini_huge_h2oice
         enddo
     else
@@ -358 +358 @@
 
     ! Stratification (layerings)
-    write(*,*)'So the stratification (layerings) is initialized with nothing more than the 3 sub-surface strata.'
+    write(*,*)'So the stratification (layerings) is initialized with only the 3 sub-surface strata.'
     nb_str_max = 3
 
@@ -365 +365 @@
     write(*,*)'So ''h2o_ice'' is initialized with default value ''ini_huge_h2oice'' where ''watercaptag'' is true.'
     do ig = 1,ngrid
-        if (watercaptag(ig)) h2o_ice(ig,:) = ini_huge_h2oice/subslope_dist(ig,:)*cos(pi*def_slope_mean(:)*180.)
+        if (watercaptag(ig)) h2o_ice(ig,:) = ini_huge_h2oice
     enddo
 

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

@@ -337 +337 @@
     enddo
   endif
-  print*,'coucou'
+
   ! Non-orographic gavity waves
   if (calllott_nonoro) then
@@ -343 +343 @@
      call put_field("dv_nonoro_gwd","Meridional wind tendency due to GW",dv_nonoro_gwd,time)
   endif
-  print*,'blabla'
 
   ! Geothermal Flux
      call put_field('flux_geo','Geothermal flux',flux_geo,time)
 
-  print*,'yoooo'
   ! Adsorption
   if (adsorption_soil) then
      call put_field("h2o_vap_soil","subsurface water vapour", &
                         qsoil(:,:,igcm_h2o_vap_soil,:), time)
-  print*,'eheheh'
      call put_field("h2o_ice_soil","subsurface water ice", &
                         qsoil(:,:,igcm_h2o_ice_soil,:), time)
-  print*,'ah'
      call put_field("h2o_vap_ads", "adsorbed water", &
                         qsoil(:,:,igcm_h2o_vap_ads,:), time)