Changeset 4100 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Mar 15, 2022, 2:20:31 PM (3 years ago)

Author:

oboucher

Message:

Tidying up and adding ok_guide to output

File:

• LMDZ6/trunk/libf/dyn3d/conf_gcm.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/dyn3d/conf_gcm.F90

@@ -116 +116 @@
   CALL getin('calend', calend)
 ! initialize year_len for aquaplanets and 1D
-      if (calend == 'earth_360d') then
-        year_len=360
-      else if (calend == 'earth_365d') then
-        year_len=365
-      else if (calend == 'earth_366d') then
-        year_len=366
-      else 
-        year_len=1
-      endif
+  IF (calend == 'earth_360d') THEN
+     year_len=360
+  ELSE IF (calend == 'earth_365d') THEN
+     year_len=365
+  ELSE IF (calend == 'earth_366d') THEN
+     year_len=366
+  ELSE 
+     year_len=1
+  ENDIF
 
   !Config  Key  = dayref
@@ -315 +315 @@
   CALL getin('ngroup',ngroup)
 
-
   ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
   !                   iflag_top_bound=0 for no sponge
@@ -322 +321 @@
   iflag_top_bound=1
   CALL getin('iflag_top_bound',iflag_top_bound)
-  if (iflag_top_bound < 0 .or. iflag_top_bound > 2) &
+  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)
 
@@ -396 +395 @@
   !     .........   (  modif  le 17/04/96 )   .........
 
-  test_etatinit: IF (.not. etatinit) then
+  test_etatinit: IF (.not. etatinit) THEN
      !Config  Key  = clon
      !Config  Desc = centre du zoom, longitude
@@ -677 +676 @@
      write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins 
      write(lunout,*)' ok_dyn_ave = ', ok_dyn_ave 
-  else
+  ELSE
      !Config  Key  = clon
      !Config  Desc = centre du zoom, longitude
@@ -877 +876 @@
 
      write(lunout,*)' #########################################'
-     write(lunout,*)' Configuration des parametres de cel0' &
-          //'_limit: '
+     write(lunout,*)' Configuration des parametres de cel0_limit: '
      write(lunout,*)' planet_type = ', planet_type
      write(lunout,*)' calend = ', calend
@@ -922 +920 @@
      write(lunout,*)' ok_limit = ', ok_limit
      write(lunout,*)' ok_etat0 = ', ok_etat0
+     write(lunout,*)' ok_guide = ', ok_guide
      write(lunout,*)' read_orop = ', read_orop
-  end IF test_etatinit
+  ENDIF test_etatinit
 
 END SUBROUTINE conf_gcm