Changeset 3912

Timestamp:

Sep 5, 2025, 2:46:19 PM (4 months ago)

Author:

jbclement

Message:

Mars PCM 1D:
Prescription of the atmospheric water ice profile in 1D. The boolean 'ctrl_h2oice' activates the option, the file "profile_ref_h2ovap" defines the prescribed profile and the value 'relaxtime_h2oice', if positive, activates the relaxation and gives the constant of time.
JBC

Location:

trunk

Files:

• LMDZ.COMMON/libf/evolution/pem.F90 (modified) (2 diffs)
• LMDZ.MARS/changelog.txt (modified) (1 diff)
• LMDZ.MARS/deftank/run.def.1d (modified) (1 diff)
• LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90 (modified) (3 diffs)
• LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90 (modified) (4 diffs)

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

@@ -276 +276 @@
 
     ! Dummy variables to use the subroutine 'init_testphys1d'
-    logical                             :: therestart1D, therestartfi, prescribed_h2ovap
+    logical                             :: therestart1D, therestartfi, ctrl_h2ovap, ctrl_h2oice
     integer                             :: ndt, day0
-    real                                :: ptif, pks, day, gru, grv, h2ovap_relax_time
+    real                                :: ptif, pks, day, gru, grv, relaxtime_h2ovap, relaxtime_h2oice
     real, dimension(:),     allocatable :: zqsat
     real, dimension(:,:,:), allocatable :: dq, dqdyn
-    real, dimension(nlayer)             :: play, w, q_prescribed_h2o_vap
+    real, dimension(nlayer)             :: play, w, qref_h2ovap, qref_h2oice
     real, dimension(nlayer + 1)         :: plev
 #else
@@ -380 +380 @@
     call init_testphys1d('start1D.txt','startfi.nc',therestart1D,therestartfi,ngrid,nlayer,610.,nq,q,         &
                          time_0,pdyn(1),ucov,vcov,teta,ndt,ptif,pks,dtphys,zqsat,dq,dqdyn,day0,day,gru,grv,w, &
-                         play,plev,latitude,longitude,cell_area,prescribed_h2ovap,h2ovap_relax_time,q_prescribed_h2o_vap)
+                         play,plev,latitude,longitude,cell_area,                                              &
+                         ctrl_h2ovap,relaxtime_h2ovap,qref_h2ovap,ctrl_h2oice,relaxtime_h2oice,qref_h2oice)
     nsplit_phys = 1
     day_step = steps_per_sol

trunk/LMDZ.MARS/changelog.txt

@@ -4968 +4968 @@
 Fixing index bug in soilwater (index kept constant in a loop).
 
+== 05/09/2025 == JBC
+Prescription of the atmospheric water ice profile in 1D. The boolean 'ctrl_h2oice' activates the option, the file "profile_ref_h2ovap" defines the prescribed profile and the value 'relaxtime_h2oice', if positive, activates the relaxation and gives the constant of time.

trunk/LMDZ.MARS/deftank/run.def.1d

@@ -49 +49 @@
 # 0 == Northward, 90 == Eastward, 180 == Southward, 270 == Westward
 slope_orientation=0.
-# Prescription of atmospheric water profile defined in file "profile_prescribed_h2o_vap" (kg/kg)
-prescribed_h2ovap=.false.
+# Prescription of atmospheric water vapour profile defined in file "profile_ref_h2o_vap" (kg/kg)
+ctrl_h2ovap=.false.
 # Relaxation time (s). If <0 then no time relaxation i.e. forcing
-h2ovap_relax_time=-1.
+relaxtime_h2ovap=-1.
+# Prescription of atmospheric water ice profile defined in file "profile_ref_h2o_ice" (kg/kg)
+ctrl_h2oice=.false.
+# Relaxation time (s). If <0 then no time relaxation i.e. forcing
+relaxtime_h2oice=-1.
 
 # hybrid vertical coordinate ? (.true. for hybrid and .false. for sigma levels)

trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90

@@ -7 +7 @@
 SUBROUTINE init_testphys1d(start1Dname,startfiname,therestart1D,therestartfi,ngrid,nlayer,odpref,               &
                            nq,q,time,psurf,u,v,temp,ndt,ptif,pks,dttestphys,zqsat,dq,dqdyn,day0,day,gru,grv,w,  &
-                           play,plev,latitude,longitude,cell_area,prescribed_h2ovap,h2ovap_relax_time,q_prescribed_h2o_vap)
+                           play,plev,latitude,longitude,cell_area,ctrl_h2ovap,relaxtime_h2ovap,qref_h2ovap,      &
+                           ctrl_h2oice,relaxtime_h2oice,qref_h2oice)
 
 use ioipsl_getincom,          only: getin ! To use 'getin'
@@ -65 +66 @@
 integer, intent(inout) :: nq
 
-real, dimension(:,:,:), allocatable, intent(out) :: q     ! tracer mixing ratio (e.g. kg/kg)
-real,                                intent(out) :: time  ! time (0<time<1; time=0.5 at noon)
-real,                                intent(out) :: psurf ! Surface pressure
-real, dimension(nlayer),             intent(out) :: u, v  ! zonal, meridional wind
-real, dimension(nlayer),             intent(out) :: temp  ! temperature at the middle of the layers
+real, dimension(:,:,:), allocatable, intent(out) :: q          ! tracer mixing ratio (e.g. kg/kg)
+real,                                intent(out) :: time       ! time (0<time<1; time=0.5 at noon)
+real,                                intent(out) :: psurf      ! Surface pressure
+real, dimension(nlayer),             intent(out) :: u, v       ! zonal, meridional wind
+real, dimension(nlayer),             intent(out) :: temp       ! temperature at the middle of the layers
 integer,                             intent(out) :: ndt
 real,                                intent(out) :: ptif, pks
-real,                                intent(out) :: dttestphys                   ! testphys1d timestep
+real,                                intent(out) :: dttestphys ! testphys1d timestep
 real, dimension(:),     allocatable, intent(out) :: zqsat
-real, dimension(:,:,:), allocatable, intent(out) :: dq, dqdyn                    ! Physical and dynamical tandencies
-integer,                             intent(out) :: day0                         ! initial (sol ; =0 at Ls=0) and final date
-real,                                intent(out) :: day                          ! date during the run
-real,                                intent(out) :: gru, grv                     ! prescribed "geostrophic" background wind
-real, dimension(nlayer),             intent(out) :: w                            ! "Dummy wind" in 1D
-real, dimension(nlayer),             intent(out) :: play                         ! Pressure at the middle of the layers (Pa)
-real, dimension(nlayer + 1),         intent(out) :: plev                         ! intermediate pressure levels (pa)
+real, dimension(:,:,:), allocatable, intent(out) :: dq, dqdyn  ! Physical and dynamical tandencies
+integer,                             intent(out) :: day0       ! initial (sol ; =0 at Ls=0) and final date
+real,                                intent(out) :: day        ! date during the run
+real,                                intent(out) :: gru, grv   ! prescribed "geostrophic" background wind
+real, dimension(nlayer),             intent(out) :: w          ! "Dummy wind" in 1D
+real, dimension(nlayer),             intent(out) :: play       ! Pressure at the middle of the layers (Pa)
+real, dimension(nlayer + 1),         intent(out) :: plev       ! intermediate pressure levels (pa)
 real, dimension(1),                  intent(out) :: latitude, longitude, cell_area
-logical,                             intent(out) :: prescribed_h2ovap            ! Prescribe atmospheric water profile
-real,                                intent(out) :: h2ovap_relax_time            ! Relaxtion time towards the atmospheric water profile
-real, dimension(nlayer),             intent(out) :: q_prescribed_h2o_vap         ! User-defined atmospheric water profile
+logical,                             intent(out) :: ctrl_h2ovap, ctrl_h2oice           ! Flags to prescribe atmospheric water vapour/ice profiles
+real,                                intent(out) :: relaxtime_h2ovap, relaxtime_h2oice ! Relaxation time towards the atmospheric water vapour/ice profiles
+real, dimension(nlayer),             intent(out) :: qref_h2ovap, qref_h2oice           ! User-defined atmospheric water vapour/ice profiles
 
 !=======================================================================
@@ -781 +782 @@
 if (.not. therestartfi .and. paleoclimate) perennial_co2ice = 0.
 
-! Prescription of atmospheric water profile
-! -----------------------------------------
-prescribed_h2ovap = .false. ! Default: free atmospheric water profile
-h2ovap_relax_time = -1. ! Default: no time relaxation
-q_prescribed_h2o_vap = 0. ! Default
+! Prescription of atmospheric water vapour/ice profiles
+! ----------------------------------------------
+ctrl_h2ovap = .false. ; ctrl_h2oice = .false. ! Default: free atmospheric water vapour/ice profiles
+relaxtime_h2ovap = -1. ; relaxtime_h2oice = -1. ! Default: no time relaxation
+qref_h2ovap = 0. ; qref_h2oice = 0. ! Default
 if (water) then
-    write(*,*)'Force atmospheric water profile (mixing ratio in kg/kg)?'
-    call getin('prescribed_h2ovap',prescribed_h2ovap)
-    write(*,*) 'prescribed_h2ovap = ', prescribed_h2ovap
-    if (prescribed_h2ovap) then
-        write(*,*) 'Atmospheric water profile is prescribed'
-        open(10,file = 'profile_prescribed_h2o_vap',status = 'old',form = 'formatted',action = 'read',iostat = ierr)
+    write(*,*)'Force atmospheric water vapour profile (mixing ratio in kg/kg)?'
+    call getin('ctrl_h2ovap',ctrl_h2ovap)
+    write(*,*) 'ctrl_h2ovap = ', ctrl_h2ovap
+    if (ctrl_h2ovap) then
+        write(*,*) 'Atmospheric water vapour profile is prescribed'
+        open(10,file = 'profile_ref_h2o_vap',status = 'old',form = 'formatted',action = 'read',iostat = ierr)
         if (ierr == 0) then
             do ilayer = 1,nlayer
-                read(10,*,iostat=ierr) q_prescribed_h2o_vap(ilayer)
-                if (ierr /= 0) error stop 'Not enough atmospheric layers defined in the file "profile_prescribed_h2o_vap"!'
+                read(10,*,iostat=ierr) qref_h2ovap(ilayer)
+                if (ierr /= 0) error stop 'Not enough atmospheric layers defined in the file "profile_ref_h2o_vap"!'
             enddo
         else
-            error stop 'File "profile_prescribed_h2o_vap" was not found!'
+            error stop 'File "profile_ref_h2o_vap" was not found!'
         endif 
         close(10)
 
-        write(*,*) 'Relax atmospheric water profile with time constant (s)?'
+        write(*,*) 'Relax atmospheric water vapour profile with time constant (s)?'
         
-        call getin('h2ovap_relax_time',h2ovap_relax_time)
-        write(*,*) 'h2ovap_relax_time = ', h2ovap_relax_time
-        if (h2ovap_relax_time < 0.) then
-            write(*,*) 'Atmospheric water vapor profile is not relaxed (forcing).'
+        call getin('relaxtime_h2ovap',relaxtime_h2ovap)
+        write(*,*) 'relaxtime_h2ovap = ', relaxtime_h2ovap
+        if (relaxtime_h2ovap < 0.) then
+            write(*,*) 'Atmospheric water vapour profile is not relaxed (forcing).'
         else
-            write(*,*) 'Atmospheric water profile is relaxed towards the profile in "profile_prescribed_h2o_vap"'
+            write(*,*) 'Atmospheric water vapour profile is relaxed towards the profile in "profile_ref_h2o_vap"'
         endif
     else
-        write(*,*) 'Free atmospheric water vapor profile'
-        write(*,*) 'Total water is conserved in the column'
+        write(*,*) 'Free atmospheric water vapour profile'
+    endif
+
+    write(*,*)'Force atmospheric water ice profile (mixing ratio in kg/kg)?'
+    call getin('ctrl_h2oice',ctrl_h2oice)
+    write(*,*) 'ctrl_h2oice = ', ctrl_h2oice
+    if (ctrl_h2oice) then
+        write(*,*) 'Atmospheric water ice profile is prescribed'
+        open(10,file = 'profile_ref_h2o_ice',status = 'old',form = 'formatted',action = 'read',iostat = ierr)
+        if (ierr == 0) then
+            do ilayer = 1,nlayer
+                read(10,*,iostat=ierr) qref_h2oice(ilayer)
+                if (ierr /= 0) error stop 'Not enough atmospheric layers defined in the file "profile_ref_h2o_ice"!'
+            enddo
+        else
+            error stop 'File "profile_ref_h2o_ice" was not found!'
+        endif 
+        close(10)
+
+        write(*,*) 'Relax atmospheric water ice profile with time constant (s)?'
+        
+        call getin('relaxtime_h2oice',relaxtime_h2oice)
+        write(*,*) 'relaxtime_h2oice = ', relaxtime_h2oice
+        if (relaxtime_h2oice < 0.) then
+            write(*,*) 'Atmospheric water ice profile is not relaxed (forcing).'
+        else
+            write(*,*) 'Atmospheric water ice profile is relaxed towards the profile in "profile_ref_h2o_ice"'
+        endif
+    else
+        write(*,*) 'Free atmospheric water ice profile'
     endif
 endif

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

@@ -6 +6 @@
 use phyredem,            only: physdem0, physdem1
 use watersat_mod,        only: watersat
-use tracer_mod,          only: igcm_h2o_vap, noms
+use tracer_mod,          only: igcm_h2o_vap, igcm_h2o_ice, noms
 use comcstfi_h,          only: pi, g, rcp, cpp
 use time_phylmdz_mod,    only: daysec
@@ -83 +83 @@
 logical :: startfiles_1D, therestart1D, therestartfi, there
 
-! Prescription of atmospheric water profile
-logical                         :: prescribed_h2ovap
-real                            :: h2ovap_relax_time
-real, dimension(nlayer)         :: q_prescribed_h2o_vap
+! Prescription of atmospheric water/ice profiles
+logical                         :: ctrl_h2ovap, ctrl_h2oice
+real                            :: relaxtime_h2ovap, relaxtime_h2oice
+real, dimension(nlayer)         :: qref_h2ovap, qref_h2oice
 real, dimension(:), allocatable :: zqsat
 !=======================================================================
@@ -142 +142 @@
 call init_testphys1d('start1D.txt','startfi.nc',therestart1D,therestartfi,ngrid,nlayer,odpref,nq,q, &
                      time,psurf,u,v,temp,ndt,ptif,pks,dttestphys,zqsat,dq,dqdyn,day0,day,gru,grv,w, &
-                     play,plev,latitude,longitude,cell_area,prescribed_h2ovap,h2ovap_relax_time,q_prescribed_h2o_vap)
+                     play,plev,latitude,longitude,cell_area,                                        &
+                     ctrl_h2ovap,relaxtime_h2ovap,qref_h2ovap,ctrl_h2oice,relaxtime_h2oice,qref_h2oice)
 
 ! Write a "startfi" file
@@ -208 +209 @@
     ! Water tracer increment: specific for 1D
     ! ---------------------------------------
-    ! The physics computes the tendency on q(1,:,igcm_h2o_vap), here we can mimic an effect of the "3D dynamics"
-    ! either by forcing a profile or by relaxing towards a prescribed profile
-    if (water .and. prescribed_h2ovap) then ! If atmospheric water profile is prescribed
-        if (h2ovap_relax_time < 0.) then ! Forcing
-            ! For some tests: unless it reaches saturation (maximal value)
-            !call watersat(nlayer,temp,play,zqsat)
-            !dq(1,:,igcm_h2o_vap) = (min(zqsat(:),q_prescribed_h2o_vap(:)) - q(1,:,igcm_h2o_vap))/dttestphys
-            dq(1,:,igcm_h2o_vap) = (q_prescribed_h2o_vap(:) - q(1,:,igcm_h2o_vap))/dttestphys
-        else ! Relaxation
-            dq(1,:,igcm_h2o_vap) = dq(1,:,igcm_h2o_vap) - (q(1,:,igcm_h2o_vap) - q_prescribed_h2o_vap(:))/h2ovap_relax_time
+    ! The physics computes the tendency on q for igcm_h2o_vap/igcm_h2o_ice, here we can mimic an effect
+    ! of the "3D dynamics" either by forcing a profile or by relaxing towards a prescribed profile
+    if (water) then
+        if (ctrl_h2ovap) then ! If atmospheric water vapour profile is prescribed
+            if (relaxtime_h2ovap < 0.) then ! Forcing
+                ! For some tests: unless it reaches saturation (maximal value)
+                !call watersat(nlayer,temp,play,zqsat)
+                !dq(1,:,igcm_h2o_vap) = (min(zqsat(:),qref_h2ovap(:)) - q(1,:,igcm_h2o_vap))/dttestphys
+                dq(1,:,igcm_h2o_vap) = (qref_h2ovap(:) - q(1,:,igcm_h2o_vap))/dttestphys
+            else ! Relaxation
+                dq(1,:,igcm_h2o_vap) = dq(1,:,igcm_h2o_vap) - (q(1,:,igcm_h2o_vap) - qref_h2ovap(:))/relaxtime_h2ovap
+            endif
+        endif
+        if (ctrl_h2oice) then ! If atmospheric water ice profile is prescribed
+            if (relaxtime_h2oice < 0.) then ! Forcing
+                dq(1,:,igcm_h2o_ice) = (qref_h2oice(:) - q(1,:,igcm_h2o_ice))/dttestphys
+            else ! Relaxation
+                dq(1,:,igcm_h2o_ice) = dq(1,:,igcm_h2o_ice) - (q(1,:,igcm_h2o_ice) - qref_h2oice(:))/relaxtime_h2oice
+            endif
         endif
      endif