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

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

@@ -57 +57 @@
          "inter_barxy jnterfd")
     jmods = size(champint, 2)
-    call assert(size(champ, 1) == size(dlonid), "inter_barxy size(champ, 1)")
-    call assert((/size(rlonimod), size(champint, 1)/) == iim, &
+    CALL assert(size(champ, 1) == size(dlonid), "inter_barxy size(champ, 1)")
+    CALL assert((/size(rlonimod), size(champint, 1)/) == iim, &
          "inter_barxy iim")
-    call assert(any(jmods == (/jjm, jjm + 1/)), 'inter_barxy jmods')
-    call assert(size(rlatimod) == jjm, "inter_barxy size(rlatimod)")
+    CALL assert(any(jmods == (/jjm, jjm + 1/)), 'inter_barxy jmods')
+    CALL assert(size(rlatimod) == jjm, "inter_barxy size(rlatimod)")
 
     ! Check decreasing order for "rlatimod":
@@ -323 +323 @@
     !------------------------------------
 
-    call assert(size(yjdat) == size(fdat), "inter_bary")
+    CALL assert(size(yjdat) == size(fdat), "inter_bary")
 
     ! Initialisation des variables