Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.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/dyn3d_common/exner_hyb_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/exner_hyb_m.F90

@@ -60 +60 @@
        if (llm==1) then
           if (kappa/=1) then
-             call abort_gcm(modname, &
+             CALL abort_gcm(modname, &
                   "kappa!=1 , but running in Shallow Water mode!!",42)
           endif
           if (cpp/=r) then
-             call abort_gcm(modname, &
+             CALL abort_gcm(modname, &
                   "cpp!=r , but running in Shallow Water mode!!",42)
           endif