Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_var_mod.F90

Timestamp:

Aug 3, 2024, 2:56:58 PM (3 months ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_var_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_var_mod.F90

@@ -395 +395 @@
       C_p(j) = RCpd
 
-      !      print *,' AAAA wx_pbl0, C_p(j), qsat0(j), Ts0(j) : ', C_p(j), qsat0(j), Ts0(j)
+      !      PRINT *,' AAAA wx_pbl0, C_p(j), qsat0(j), Ts0(j) : ', C_p(j), qsat0(j), Ts0(j)
     ENDDO
     DO j = 1, knon
@@ -456 +456 @@
       dd_Km = Kech_m_w(j) - Kech_m_x(j)
       IF (prt_level >=10) THEN
-        print *, ' mod_wind_x, mod_wind_w ', mod_wind_x, mod_wind_w
-        print *, ' rho1 ', rho1
-        print *, ' ycdragh_x(j),ycdragm_x(j) ', ycdragh_x(j), ycdragm_x(j)
-        print *, ' ycdragh_w(j),ycdragm_w(j) ', ycdragh_w(j), ycdragm_w(j)
-        print *, ' dd_Kh: ', dd_Kh
+        PRINT *, ' mod_wind_x, mod_wind_w ', mod_wind_x, mod_wind_w
+        PRINT *, ' rho1 ', rho1
+        PRINT *, ' ycdragh_x(j),ycdragm_x(j) ', ycdragh_x(j), ycdragm_x(j)
+        PRINT *, ' ycdragh_w(j),ycdragm_w(j) ', ycdragh_w(j), ycdragm_w(j)
+        PRINT *, ' dd_Kh: ', dd_Kh
       ENDIF
 
@@ -521 +521 @@
 
       IF (prt_level >=10) THEN
-        print *, 'Variables pour la fusion : Kech_T_px(j)', Kech_T_px(j)
-        print *, 'Variables pour la fusion : Kech_T_pw(j)', Kech_T_pw(j)
-        print *, 'Variables pour la fusion : Kech_Tp(j)', Kech_Tp(j)
-        print *, 'Variables pour la fusion : Kech_h(j)', Kech_h(j)
+        PRINT *, 'Variables pour la fusion : Kech_T_px(j)', Kech_T_px(j)
+        PRINT *, 'Variables pour la fusion : Kech_T_pw(j)', Kech_T_pw(j)
+        PRINT *, 'Variables pour la fusion : Kech_Tp(j)', Kech_Tp(j)
+        PRINT *, 'Variables pour la fusion : Kech_h(j)', Kech_h(j)
       ENDIF
 
@@ -563 +563 @@
       KxKwQs(j) = Kech_Q_sx(j) * Kech_Q_sw(j)
 
-      !!  print *,'BBBBwx_prelim_beta : beta ', beta(j)
+      !!  PRINT *,'BBBBwx_prelim_beta : beta ', beta(j)
 
     ENDDO ! j = 1, knon