Changeset 3468 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Oct 24, 2024, 9:18:07 AM (4 weeks ago)

Author:

emillour

Message:

Mars PCM:
Remove obsolete/depreciated lwrite flag (which would trigger some very specific
extra text outputs), in code and in reference callphys.def files.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

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

@@ -1505 +1505 @@
          dwatercap_dif(:,:) = 0.
          CALL vdifc(ngrid,nlayer,nsoilmx,nq,nqsoil,zpopsk,
-     $        ptimestep,capcal,lwrite,
+     $        ptimestep,capcal,
      $        zplay,zplev,zzlay,zzlev,z0,
      $        pu,pv,zh,pq,tsurf,tsoil,emis,qsurf,
@@ -2546 +2546 @@
      &              'ig l =', igmin, lmin
       end if
-c *******************************************************************
-
-c     ---------------------
-c     Outputs to the screen
-c     ---------------------
-
-      IF (lwrite) THEN
-         write(*,*)'Global diagnostics for the physics'
-         write(*,*)'Variables and their increments x and dx/dt * dt'
-         WRITE(*,'(a6,a10,2a15)') 'Ts','dTs','ps','dps'
-         WRITE(*,'(2f10.5,2f15.5)')
-     s   tsurf(igout,:),zdtsurf(igout,:)*ptimestep,
-     s   zplev(igout,1),pdpsrf(igout)*ptimestep
-         WRITE(*,'(a4,a6,5a10)') 'l','u','du','v','dv','T','dT'
-         WRITE(*,'(i4,6f10.5)') (l,
-     s   pu(igout,l),pdu(igout,l)*ptimestep,
-     s   pv(igout,l),pdv(igout,l)*ptimestep,
-     s   pt(igout,l),pdt(igout,l)*ptimestep,
-     s   l=1,nlayer)
-      ENDIF ! of IF (lwrite)
 
 c        ----------------------------------------------------------