Changeset 4043 for trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

Timestamp:

Feb 5, 2026, 2:47:26 PM (4 weeks ago)

Author:

jbclement

Message:

Mars PCM:
Addition of 'pa' and 'preff' in the information provided by "start1D.txt".
JBC

File:

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

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

@@ -11 +11 @@
 use dimradmars_mod,      only: tauvis, totcloudfrac, albedo
 use dust_param_mod,      only: tauscaling
-use comvert_mod,         only: ap, bp, aps, bps
+use comvert_mod,         only: ap, bp, aps, bps, pa, preff
 use physiq_mod,          only: physiq
 use turb_mod,            only: q2
@@ -261 +261 @@
 
 ! Writing the "restart1D.txt" file for the next run
-if (startfiles_1D) call writerestart1D('restart1D.txt',psurf,tsurf(1,:),nlayer,size(tsurf,2),temp,u,v,nq,noms,qsurf(1,:,:),q)
+if (startfiles_1D) call writerestart1D('restart1D.txt',psurf,pa,preff,tsurf(1,:),nlayer,size(tsurf,2),temp,u,v,nq,noms,qsurf(1,:,:),q)
 
 write(*,*) "testphys1d: everything is cool!"