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

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

@@ -11 +11 @@
   !   -------------
 
-  USE control_mod, only : dissip_period,iperiod
+  USE control_mod, ONLY: dissip_period,iperiod
   USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
                           dtdiss, dtvr, rad
@@ -79 +79 @@
      write(lunout,*)'  Inidissip  zh min max  ',zhmin,zhmax
      abort_message='probleme generateur alleatoire dans inidissip'
-     call abort_gcm('inidissip',abort_message,1)
+     CALL abort_gcm('inidissip',abort_message,1)
   ENDIF