Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver

Files:

• test_aerosol_optics_description.F90 (modified) (1 diff)
• test_fast_expm.F90 (modified) (1 diff)
• test_random_number_generator.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_aerosol_optics_description.F90

@@ -33 +33 @@
 
   ! These two should issue a warning that the aerosol type is ambiguous
-  print *, 'DD: ', aer_desc%get_index('DD',.false.)
-  print *, 'DD (bin=2): ', aer_desc%get_index('DD',.false.,ibin=2)
+  PRINT *, 'DD: ', aer_desc%get_index('DD',.false.)
+  PRINT *, 'DD (bin=2): ', aer_desc%get_index('DD',.false.,ibin=2)
   ! Indicate preferred aerosol optical model, after which further
   ! calls will prefer one particular model
-  print *, 'preferred_optical_model(DD,Fouquart)'
+  PRINT *, 'preferred_optical_model(DD,Fouquart)'
   call aer_desc%preferred_optical_model('DD','Fouquart')
-  print *, 'DD (bin=2): ', aer_desc%get_index('DD',.false.,ibin=2)
-  print *, 'DD (bin=2,model=Woodward): ', aer_desc%get_index('DD',.false.,ibin=2,optical_model_str="Woodward")
-  print *, 'DD (bin=2,model=Woodward2001): ', aer_desc%get_index('DD',.false.,ibin=2,optical_model_str="Woodward2001")
+  PRINT *, 'DD (bin=2): ', aer_desc%get_index('DD',.false.,ibin=2)
+  PRINT *, 'DD (bin=2,model=Woodward): ', aer_desc%get_index('DD',.false.,ibin=2,optical_model_str="Woodward")
+  PRINT *, 'DD (bin=2,model=Woodward2001): ', aer_desc%get_index('DD',.false.,ibin=2,optical_model_str="Woodward2001")
   ! This should fail to find a match, returning zero
-  print *, 'DD (model=Nobody): ', aer_desc%get_index('DD',.false.,optical_model_str="Nobody")
-  print *, 'SS (bin=3): ', aer_desc%get_index('SS',.true.,ibin=3)
+  PRINT *, 'DD (model=Nobody): ', aer_desc%get_index('DD',.false.,optical_model_str="Nobody")
+  PRINT *, 'SS (bin=3): ', aer_desc%get_index('SS',.true.,ibin=3)
 
 end program test_aerosol_optics_description

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_fast_expm.F90

@@ -18 +18 @@
   call fast_expm_exchange_3(1,1,a(1:1),b(1:1),c(1:1),d(1:1),r)
 
-  print *, r
-  print *, 0.0000001
-  print *, epsilon(1.0_jprb)
+  PRINT *, r
+  PRINT *, 0.0000001
+  PRINT *, epsilon(1.0_jprb)
 
 end program test_fast_expm

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_random_number_generator.F90

@@ -19 +19 @@
   integer :: jl
 
-  print *, 'working_fp_precision = ', jprb
+  PRINT *, 'working_fp_precision = ', jprb
 
   if (IRngType == IRngNative) then
-    print *, "rng_type = 'native'"
+    PRINT *, "rng_type = 'native'"
   else
-    print *, "rng_type = 'native'"
+    PRINT *, "rng_type = 'native'"
   end if
   
@@ -30 +30 @@
        &                                  nmaxstreams=streammax)
   DO jl = 1,1
-    print *, 'initial_state = [ ', int(random_number_generator%istate(1:streammax),jpib), ' ]'
+    PRINT *, 'initial_state = [ ', int(random_number_generator%istate(1:streammax),jpib), ' ]'
     call random_number_generator%uniform_distribution(vec)
-    print *, 'uniform_deviates = [ ', vec, ' ]'
-    print *, 'final_state = [ ', int(random_number_generator%istate(1:streammax),jpib), ' ]'
+    PRINT *, 'uniform_deviates = [ ', vec, ' ]'
+    PRINT *, 'final_state = [ ', int(random_number_generator%istate(1:streammax),jpib), ' ]'
   end do