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

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/conf_gcm.F90

@@ -346 +346 @@
   CALL getin('maxlatfilter',maxlatfilter)
   if (maxlatfilter > 90) &
-       call abort_gcm("conf_gcm", 'maxlatfilter should be <=90', 1)
+       CALL abort_gcm("conf_gcm", 'maxlatfilter should be <=90', 1)
   
 
@@ -353 +353 @@
   CALL getin('ngroup',ngroup)
   IF (mod(iim, 2**ngroup) /= 0) &
-       call abort_gcm("conf_gcm", 'iim must be multiple of 2**ngroup', 1)
+       CALL abort_gcm("conf_gcm", 'iim must be multiple of 2**ngroup', 1)
   IF (2**ngroup > jjm + 1) &
-       call abort_gcm("conf_gcm", '2**ngroup must be <= jjm + 1', 1)
+       CALL abort_gcm("conf_gcm", '2**ngroup must be <= jjm + 1', 1)
 
   ! mode_top_bound : fields towards which sponge relaxation will be done:
@@ -365 +365 @@
   CALL getin('iflag_top_bound',iflag_top_bound)
   IF (iflag_top_bound < 0 .or. iflag_top_bound > 2) &
-       call abort_gcm("conf_gcm", 'iflag_top_bound must be 0, 1 or 2', 1)
+       CALL abort_gcm("conf_gcm", 'iflag_top_bound must be 0, 1 or 2', 1)
 
   ! mode_top_bound : fields towards which sponge relaxation will be done:
@@ -401 +401 @@
   CALL getin('ok_guide',ok_guide)
 
-  IF (ok_guide .and. adjust) call abort_gcm("conf_gcm", &
+  IF (ok_guide .and. adjust) CALL abort_gcm("conf_gcm", &
        "adjust does not work with ok_guide", 1)
 
@@ -812 +812 @@
      dzoomx = 0.2
      CALL getin('dzoomx',dzoomx)
-     call assert(dzoomx < 1, "conf_gcm: dzoomx must be < 1")
+     CALL assert(dzoomx < 1, "conf_gcm: dzoomx must be < 1")
 
      !Config  Key  = dzoomy
@@ -821 +821 @@
      dzoomy = 0.2
      CALL getin('dzoomy',dzoomy)
-     call assert(dzoomy < 1, "conf_gcm: dzoomy must be < 1")
+     CALL assert(dzoomy < 1, "conf_gcm: dzoomy must be < 1")
 
      !Config  Key  = taux
@@ -940 +940 @@
      vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
      CALL getin('vert_prof_dissip', vert_prof_dissip)
-     call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1, &
+     CALL assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1, &
           "bad value for vert_prof_dissip")