Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.F

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/read_newemissions.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.F

@@ -181 +181 @@
 !$OMP END MASTER
 !$OMP BARRIER
-       call scatter(wth_glo,wth)
-       call scatter(cly_glo,cly)
-       call scatter(zprecipinsoil_glo,zprecipinsoil)
+       CALL scatter(wth_glo,wth)
+       CALL scatter(cly_glo,cly)
+       CALL scatter(zprecipinsoil_glo,zprecipinsoil)
 
 !JE20140908<<        GOTO 1000