Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs_new.f90

Timestamp:

Jul 23, 2024, 8:22:55 AM (3 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs_new.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs_new.f90

@@ -9 +9 @@
   USE mod_phys_lmdz_para
   USE dimphy
-  USE netcdf, ONLY : nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
+  USE netcdf, ONLY: nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
   IMPLICIT none
 
@@ -64 +64 @@
       write(6, *)' Pb d''ouverture du fichier sulphur_emissions_antro'
       write(6, *)' ierr = ', ierr
-      call exit(1)
+      CALL exit(1)
     endif
 
@@ -133 +133 @@
       write(6, *)' Pb d''ouverture du fichier sulphur_emissions_nat'
       write(6, *)' ierr = ', ierr
-      call exit(1)
+      CALL exit(1)
     endif
 
@@ -188 +188 @@
       write(6, *)' Pb d''ouverture du fichier sulphur_emissions_volc'
       write(6, *)' ierr = ', ierr
-      call exit(1)
+      CALL exit(1)
     endif
 
@@ -243 +243 @@
   !$OMP END MASTER
   !$OMP BARRIER
-  call scatter(lmt_so2b_glo, lmt_so2b)
-  call scatter(lmt_so2h_glo, lmt_so2h)
-  call scatter(lmt_so2bb_h_glo, lmt_so2bb_h)
-  call scatter(lmt_so2bb_l_glo, lmt_so2bb_l)
-  call scatter(lmt_so2ba_glo, lmt_so2ba)
-  call scatter(lmt_so2nff_glo, lmt_so2nff)
-  call scatter(lmt_dmsbio_glo, lmt_dmsbio)
-  call scatter(lmt_h2sbio_glo, lmt_h2sbio)
-  call scatter(lmt_dmsconc_glo, lmt_dmsconc)
-  call scatter(lmt_dms_glo, lmt_dms)
-  call scatter(lmt_so2volc_cont_glo, lmt_so2volc_cont)
-  call scatter(lmt_altvolc_cont_glo, lmt_altvolc_cont)
-  call scatter(lmt_so2volc_expl_glo, lmt_so2volc_expl)
-  call scatter(lmt_altvolc_expl_glo, lmt_altvolc_expl)
+  CALL scatter(lmt_so2b_glo, lmt_so2b)
+  CALL scatter(lmt_so2h_glo, lmt_so2h)
+  CALL scatter(lmt_so2bb_h_glo, lmt_so2bb_h)
+  CALL scatter(lmt_so2bb_l_glo, lmt_so2bb_l)
+  CALL scatter(lmt_so2ba_glo, lmt_so2ba)
+  CALL scatter(lmt_so2nff_glo, lmt_so2nff)
+  CALL scatter(lmt_dmsbio_glo, lmt_dmsbio)
+  CALL scatter(lmt_h2sbio_glo, lmt_h2sbio)
+  CALL scatter(lmt_dmsconc_glo, lmt_dmsconc)
+  CALL scatter(lmt_dms_glo, lmt_dms)
+  CALL scatter(lmt_so2volc_cont_glo, lmt_so2volc_cont)
+  CALL scatter(lmt_altvolc_cont_glo, lmt_altvolc_cont)
+  CALL scatter(lmt_so2volc_expl_glo, lmt_so2volc_expl)
+  CALL scatter(lmt_altvolc_expl_glo, lmt_altvolc_expl)
 
   RETURN