Changeset 4005

Timestamp:

Jan 14, 2026, 8:29:57 PM (3 days ago)

Author:

aslmd

Message:

MESOSCALE: minor print output change

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -643 +643 @@
       write(*,*)"check: rad,cpp,g,r,rcp,daysec"
       write(*,*)rad,cpp,g,r,rcp,daysec
-      write(*,*)'check: tsurf ',tsurf(1,:),tsurf(ngrid,:)
-      write(*,*)'check: tsoil ',tsoil(1,1,:),tsoil(ngrid,nsoilmx,:)
-      write(*,*)'check: inert ',inertiedat(1,1),inertiedat(ngrid,nsoilmx)
-      write(*,*)'check: midlayer,layer ', mlayer(:),layer(:)
-      write(*,*)'check: tracernames ', noms
-      write(*,*)'check: emis ',emis(1,:),emis(ngrid,:)
-      write(*,*)'check: q2 ',q2(1,1),q2(ngrid,nlayer+1)
-      write(*,*)'check: qsurf ',qsurf(1,1,:),qsurf(ngrid,nq,:)
-      write(*,*)'check: co2ice ',qsurf(1,igcm_co2,:),qsurf(ngrid,igcm_co2,:)
+      write(*,*)'check: tsurf',tsurf(1,:),tsurf(ngrid,:)
+      write(*,*)'check: tsoil',tsoil(1,1,:),tsoil(ngrid,nsoilmx,:)
+      write(*,*)'check: inert',inertiedat(1,1),inertiedat(ngrid,nsoilmx)
+      write(*,*)'check: midlayer,layer', mlayer(:),layer(:)
+      write(*,*)'check: tracernames', noms
+      write(*,*)'check: emis',emis(1,:),emis(ngrid,:)
+      write(*,*)'check: q2',q2(1,1),q2(ngrid,nlayer+1)
+      write(*,*)'check: qsurf',qsurf(1,1,:),qsurf(ngrid,nq,:)
+      !write(*,*)'check: co2ice',qsurf(1,igcm_co2,:),qsurf(ngrid,igcm_co2,:)
       !!!
       day_ini = pday