Changeset 4210 for dynamico_lmdz/simple_physics/phyparam/physics/radiative_sw.F90

Timestamp:

Jan 7, 2020, 10:53:19 AM (5 years ago)

Author:

dubos

Message:

simple_physics : cleanup PRINTs

File:

• dynamico_lmdz/simple_physics/phyparam/physics/radiative_sw.F90 (modified) (8 diffs)

dynamico_lmdz/simple_physics/phyparam/physics/radiative_sw.F90

@@ -1 +1 @@
 MODULE radiative_sw
+
+#include "use_logging.h"
+
   IMPLICIT NONE
   SAVE
@@ -135 +138 @@
     IF (lwrite) THEN
        igout=ncount/2+1
-       PRINT*
-       PRINT*,'Diagnostique des transmission dans le spectre solaire'
-       PRINT*,'zfract, zmu, zalb'
-       PRINT*,zfract(igout), zmu(igout), zalb(igout)
-       PRINT*,'Pression, quantite d abs, transmission'
+       WRITELOG(*,*) 
+       WRITELOG(*,*) 'Diagnostique des transmission dans le spectre solaire'
+       WRITELOG(*,*) 'zfract, zmu, zalb'
+       WRITELOG(*,*) zfract(igout), zmu(igout), zalb(igout)
+       WRITELOG(*,*) 'Pression, quantite d abs, transmission'
        DO l=1,nlayer+1
-          PRINT*,zplev(igout,l),zu(igout,l),ztrdir(igout,l)
+          WRITELOG(*,*) zplev(igout,l),zu(igout,l),ztrdir(igout,l)
        ENDDO
     ENDIF
@@ -157 +160 @@
     ENDDO
     IF (lwrite) THEN
-       PRINT*
-       PRINT*,'Diagnostique des taux de chauffage solaires:'
-       PRINT*,' 1 taux de chauffage lie au ray. solaire  direct'
+       WRITELOG(*,*) 
+       WRITELOG(*,*) 'Diagnostique des taux de chauffage solaires:'
+       WRITELOG(*,*) ' 1 taux de chauffage lie au ray. solaire  direct'
        DO l=1,nlayer
-          PRINT*,zdtsw(igout,l)
+          WRITELOG(*,*) zdtsw(igout,l)
        ENDDO
     ENDIF
@@ -176 +179 @@
     ENDDO
     IF (lwrite) THEN
-       PRINT*
-       PRINT*,'Diagnostique des taux de chauffage solaires:'
-       PRINT*,' 2 flux solaire net incident sur le sol'
-       PRINT*,zflux(igout)
+       WRITELOG(*,*) 
+       WRITELOG(*,*) 'Diagnostique des taux de chauffage solaires:'
+       WRITELOG(*,*) ' 2 flux solaire net incident sur le sol'
+       WRITELOG(*,*) zflux(igout)
     ENDIF
     
@@ -194 +197 @@
     
     IF (lwrite) THEN
-       PRINT*
-       PRINT*,'Diagnostique des taux de chauffage solaires'
-       PRINT*,' 3 transmission avec les sol'
-       PRINT*,'niveau     transmission'
+       WRITELOG(*,*) 
+       WRITELOG(*,*) 'Diagnostique des taux de chauffage solaires'
+       WRITELOG(*,*) ' 3 transmission avec les sol'
+       WRITELOG(*,*) 'niveau     transmission'
        DO l=1,nlevel
-          PRINT*,l,ztrref(igout,l)
+          WRITELOG(*,*) l,ztrref(igout,l)
        ENDDO
     ENDIF
@@ -220 +223 @@
     
     IF (lwrite) THEN
-       PRINT*
-       PRINT*,'Diagnostique des taux de chauffage solaires:'
-       PRINT*,' 3 taux de chauffage total'
+       WRITELOG(*,*) 
+       WRITELOG(*,*) 'Diagnostique des taux de chauffage solaires:'
+       WRITELOG(*,*) ' 3 taux de chauffage total'
        DO l=1,nlayer
-          PRINT*,zdtsw(igout,l)
+          WRITELOG(*,*) zdtsw(igout,l)
        ENDDO
     ENDIF
@@ -236 +239 @@
        ENDDO
     ELSE
-       print*,'NOT DIURNE'
+       WRITELOG(*,*) 'NOT DIURNE'
        fsrfvis(:)=zflux(:)
        dtsw(:,:)=zdtsw(:,:)
@@ -247 +250 @@
     !        call dump2d(iim,jjm-1,albedo(2),'albedo     ')
     !        call dump2d(iim,jjm-1,ztrdir(2,1),'ztrdir     ')
-    
+    LOG_INFO('rad_sw')
     
   END SUBROUTINE sw