Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer

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/StratAer

Files:

• interp_sulf_input.F90 (modified) (2 diffs)
• stratH2O_methox.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/interp_sulf_input.F90

@@ -134 +134 @@
     !--reading emission files
     CALL nf95_open(nc_fname, nf90_nowrite, ncid_in)
-    IF(flag_verbose_strataer) print *, "Open file ", nc_fname
+    IF(flag_verbose_strataer) PRINT *, "Open file ", nc_fname
     
     CALL nf95_inq_varid(ncid_in, "LEV", varid)
@@ -162 +162 @@
     CALL nf95_inq_varid(ncid_in, "OCS", varid)
     ncerr = nf90_get_var(ncid_in, varid, OCS_clim_in)
-    IF(flag_verbose_strataer) print *,'code erreur OCS=', ncerr, varid
+    IF(flag_verbose_strataer) PRINT *,'code erreur OCS=', ncerr, varid
 
     CALL nf95_inq_varid(ncid_in, "SO2", varid)
     ncerr = nf90_get_var(ncid_in, varid, SO2_clim_in)
-    IF(flag_verbose_strataer) print *,'code erreur SO2=', ncerr, varid
+    IF(flag_verbose_strataer) PRINT *,'code erreur SO2=', ncerr, varid
 
     CALL nf95_inq_varid(ncid_in, "OCS_LIFET", varid)
     ncerr = nf90_get_var(ncid_in, varid, OCS_lifetime_in)
-    IF(flag_verbose_strataer) print *,'code erreur OCS_lifetime_in=', ncerr, varid
+    IF(flag_verbose_strataer) PRINT *,'code erreur OCS_lifetime_in=', ncerr, varid
 
     CALL nf95_inq_varid(ncid_in, "SO2_LIFET", varid)
     ncerr = nf90_get_var(ncid_in, varid, SO2_lifetime_in)
-    IF(flag_verbose_strataer) print *,'code erreur SO2_lifetime_in=', ncerr, varid
+    IF(flag_verbose_strataer) PRINT *,'code erreur SO2_lifetime_in=', ncerr, varid
     
     IF(flag_newclim_file) THEN
        CALL nf95_inq_varid(ncid_in, "O3", varid)
        ncerr = nf90_get_var(ncid_in, varid, O3_clim_in)
-       IF(flag_verbose_strataer) print *,'code erreur O3=', ncerr, varid
+       IF(flag_verbose_strataer) PRINT *,'code erreur O3=', ncerr, varid
        
        CALL nf95_inq_varid(ncid_in, "H2SO4_LIFET", varid)
        ncerr = nf90_get_var(ncid_in, varid, H2SO4_lifetime_in)
-       IF(flag_verbose_strataer) print *,'code erreur H2SO4_lifetime_in=', ncerr, varid
+       IF(flag_verbose_strataer) PRINT *,'code erreur H2SO4_lifetime_in=', ncerr, varid
     ENDIF
     

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratH2O_methox.F90

@@ -86 +86 @@
      IF (is_mpi_root.AND.is_omp_root) THEN
         
-        print *,'In stratH2O_methox read file: ch4r_annual_lmdz.nc'
+        PRINT *,'In stratH2O_methox read file: ch4r_annual_lmdz.nc'
         
         !--reading strat. H2O source (CH4 oxidation) files
@@ -111 +111 @@
         CALL nf95_inq_varid(ncid_in, "CH4RVMR", varid)
         ncerr = nf90_get_var(ncid_in, varid, CH4RVMR_in)
-        print *,'code erreur CH4RVMR=', ncerr, varid
+        PRINT *,'code erreur CH4RVMR=', ncerr, varid
         
         CALL nf95_close(ncid_in)