Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/convect2.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/convect2.F90 (modified) (2 diffs)

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

@@ -36 +36 @@
   ! LIBRARIES OF RESIDENCE: /a/ops/lib/libfcst159.a
 
-  ! USAGE: call convect2(ncum,idcum,len,nd,nl,minorig,
+  ! USAGE: CALL convect2(ncum,idcum,len,nd,nl,minorig,
   ! &                 nk1,icb1,
   ! &                 t1,q1,qs1,u1,v1,gz1,tv1,tp1,tvp1,clw1,h1,
@@ -656 +656 @@
   ! K Emanuel fix
 
-  ! call zilch(byp,ncum)
+  ! CALL zilch(byp,ncum)
   ! do 530 k=minorig+1,nl-1
   ! do 520 i=1,ncum