Changeset 3468 for trunk/LMDZ.MARS/libf/phymars/callradite_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/callradite_mod.F (modified) (1 diff)

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

@@ -608 +608 @@
          enddo
       endif
-c     Output for debugging if lwrite=T
+c     Output for debugging
 c     --------------------------------
 c     Write all nlayer layers, even though only nlaylte layers may have
 c     non-zero tendencies.
 
-         IF(lwrite) THEN
-            PRINT*,'Diagnotique for the radiation'
-            PRINT*,'albedo, emissiv, mu0,fract,fluxsurf_lw,fluxsurf_sw'
-            PRINT*,albedo(igout,1),emis(igout),mu0(igout),
-     s           fract(igout), fluxsurf_lw(igout),
-     $     fluxsurf_dn_sw(igout,1)+fluxsurf_dn_sw(igout,2)
-            PRINT*,'Tlay Tlev Play Plev dT/dt SW dT/dt LW (K/s)'
-            PRINT*,'daysec',daysec
-            DO l=1,nlayer
-               PRINT*,pt(igout,l),ptlev(igout,l),
-     s         pplay(igout,l),pplev(igout,l),
-     s         dtsw(igout,l),dtlw(igout,l)
-            ENDDO
-         ENDIF
+c            PRINT*,'Diagnotique for the radiation'
+c            PRINT*,'albedo, emissiv, mu0,fract,fluxsurf_lw,fluxsurf_sw'
+c            PRINT*,albedo(igout,1),emis(igout),mu0(igout),
+c     s           fract(igout), fluxsurf_lw(igout),
+c     $     fluxsurf_dn_sw(igout,1)+fluxsurf_dn_sw(igout,2)
+c            PRINT*,'Tlay Tlev Play Plev dT/dt SW dT/dt LW (K/s)'
+c            PRINT*,'daysec',daysec
+c            DO l=1,nlayer
+c               PRINT*,pt(igout,l),ptlev(igout,l),
+c     s         pplay(igout,l),pplev(igout,l),
+c     s         dtsw(igout,l),dtlw(igout,l)
+c            ENDDO