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

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

@@ -60 +60 @@
 c   Champs 1D
 
-      call convflu(pbaru,pbarv,llm,zconvm)
+      CALL convflu(pbaru,pbarv,llm,zconvm)
 
-      call scopy(ijp1llm,zconvm,1,zconvmm,1)
-      call scopy(ijmllm,pbarv,1,pbarvm,1)
+      CALL scopy(ijp1llm,zconvm,1,zconvmm,1)
+      CALL scopy(ijmllm,pbarv,1,pbarvm,1)
 
       if (groupe_ok) then
-      call groupeun(jjp1,llm,zconvmm)
-      call groupeun(jjm,llm,pbarvm)
+      CALL groupeun(jjp1,llm,zconvmm)
+      CALL groupeun(jjm,llm,pbarvm)
 
 c   Champs 3D