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

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 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/condsurfc_new.f90 (modified) (3 diffs)

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

@@ -6 +6 @@
   USE mod_phys_lmdz_para
   USE dimphy
-  USE netcdf, ONLY : nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
+  USE netcdf, ONLY: nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
   IMPLICIT none
 
@@ -61 +61 @@
       write(6, *)' Pb d''ouverture du fichier limitbc.nc'
       write(6, *)' ierr = ', ierr
-      call exit(1)
+      CALL exit(1)
     endif
 
@@ -192 +192 @@
   !$OMP END MASTER
   !$OMP BARRIER
-  call scatter(lmt_bcff_glo, lmt_bcff)
-  call scatter(lmt_bcnff_glo, lmt_bcnff)
-  call scatter(lmt_bcbbl_glo, lmt_bcbbl)
-  call scatter(lmt_bcbbh_glo, lmt_bcbbh)
-  call scatter(lmt_bcba_glo, lmt_bcba)
-  call scatter(lmt_omff_glo, lmt_omff)
-  call scatter(lmt_omnff_glo, lmt_omnff)
-  call scatter(lmt_ombbl_glo, lmt_ombbl)
-  call scatter(lmt_ombbh_glo, lmt_ombbh)
-  call scatter(lmt_omba_glo, lmt_omba)
-  call scatter(lmt_terp_glo, lmt_terp)
-  call scatter(lmt_omnat_glo, lmt_omnat)
+  CALL scatter(lmt_bcff_glo, lmt_bcff)
+  CALL scatter(lmt_bcnff_glo, lmt_bcnff)
+  CALL scatter(lmt_bcbbl_glo, lmt_bcbbl)
+  CALL scatter(lmt_bcbbh_glo, lmt_bcbbh)
+  CALL scatter(lmt_bcba_glo, lmt_bcba)
+  CALL scatter(lmt_omff_glo, lmt_omff)
+  CALL scatter(lmt_omnff_glo, lmt_omnff)
+  CALL scatter(lmt_ombbl_glo, lmt_ombbl)
+  CALL scatter(lmt_ombbh_glo, lmt_ombbh)
+  CALL scatter(lmt_omba_glo, lmt_omba)
+  CALL scatter(lmt_terp_glo, lmt_terp)
+  CALL scatter(lmt_omnat_glo, lmt_omnat)
 
   RETURN