Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3d/caldyn.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/dyn3d/caldyn.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d/caldyn.F

@@ -83 +83 @@
       CALL massbar  (   masse, massebx , masseby                    )
       ! compute XY-average of mass, massebxy()
-      call massbarxy(   masse, massebxy                             )
+      CALL massbarxy(   masse, massebxy                             )
       ! compute mass fluxes pbaru() and pbarv()
       CALL flumass  ( massebx, masseby , vcont, ucont ,pbaru, pbarv )