Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3d/integrd.F

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/dyn3d/integrd.F (modified) (2 diffs)

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

@@ -7 +7 @@
      &  )
 
-      use control_mod, only : planet_type
+      use control_mod, ONLY: planet_type
       use comconst_mod, only: pi
       USE logic_mod, ONLY: leapf
@@ -106 +106 @@
          write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
      &                   " lat = ",rlatu(j)*180./pi, " deg"
-         call abort_gcm("integrd", "", 1)
+         CALL abort_gcm("integrd", "", 1)
         ENDIF
       ENDDO