Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/calc_Re.F90

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/calc_Re.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/calc_Re.F90

@@ -97 +97 @@
         vu = (1/(0.2714 + 0.00057145*Np*rho_a*1E-6))**2 ! units of Nt = Np*rhoa = #/cm^3
     else
-        print *, 'Error: Must specify a value for Np in each volume', &
+        PRINT *, 'Error: Must specify a value for Np in each volume', &
              ' with Morrison/Martin Scheme.'
             stop    
@@ -111 +111 @@
       ! vu isn't specified
       
-      print *, 'Error: Must specify a value for vu for Modified Gamma distribution'
+      PRINT *, 'Error: Must specify a value for vu for Modified Gamma distribution'
       stop    
       
@@ -130 +130 @@
                 local_Np = p1 ! total number concentration / pa --- units kg^-1
             else
-            print *, 'Error: Must specify Np or default value ', &
+            PRINT *, 'Error: Must specify Np or default value ', &
                  '(p1=Dm [um] or p2=Np [1/kg]) for ', &
                  'Modified Gamma distribution'
@@ -169 +169 @@
     else
     
-    print *, 'Error: Must specify Np or default value ', &
+    PRINT *, 'Error: Must specify Np or default value ', &
          '(p1=No or p2=lambda) for Exponential distribution'
         stop
@@ -191 +191 @@
     if(Np>0) then
     
-        print *, 'Variable Np not supported for ', &
+        PRINT *, 'Variable Np not supported for ', &
          'Power Law distribution'
         stop
@@ -205 +205 @@
     
         if(Np>0) then
-        print *, 'Variable Np not supported for ', &
+        PRINT *, 'Variable Np not supported for ', &
          'Monodispersed distribution'
         stop
@@ -225 +225 @@
             log_sigma_g = local_p3 
         else
-            print *, 'Error: Must specify a value for sigma_g ', &
+            PRINT *, 'Error: Must specify a value for sigma_g ', &
              'when using a Log-Normal distribution'
             stop
@@ -244 +244 @@
                 local_Np=p1
             else
-                print *, 'Error: Must specify Np or default value ', &
+                PRINT *, 'Error: Must specify Np or default value ', &
                  '(p2=Rg or p1=Np) for Log-Normal distribution'
             endif