Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/cv30_routines.F90

Timestamp:

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

LMDZ6/branches/Amaury_dev/libf/phylmd/cv30_routines.F90

@@ -1129 +1129 @@
   ! K Emanuel fix
 
-  ! call zilch(byp,ncum)
+  ! CALL zilch(byp,ncum)
   ! do 530 k=minorig+1,nl-1
   ! do 520 i=1,ncum
@@ -1156 +1156 @@
   ! J Teixeira fix
 
-  ! ori      call zilch(byp,ncum)
+  ! ori      CALL zilch(byp,ncum)
   ! ori      do 515 i=1,ncum
   ! ori        lcape(i)=.true.
@@ -1624 +1624 @@
   ! =====================================================================
 
-  ! ym      call zilch(asum,ncum*nd)
-  ! ym      call zilch(bsum,ncum*nd)
-  ! ym      call zilch(csum,ncum*nd)
+  ! ym      CALL zilch(asum,ncum*nd)
+  ! ym      CALL zilch(bsum,ncum*nd)
+  ! ym      CALL zilch(csum,ncum*nd)
   CALL zilch(asum, nloc*nd)
   CALL zilch(csum, nloc*nd)