Changeset 2525 for trunk

Timestamp:

May 26, 2021, 12:20:31 PM (4 years ago)

Author:

abierjon

Message:

Mars GCM:
Make a cleaner initialization of some variables in simu_MCS.F90

AB

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• util/simu_MCS.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/README

@@ -3384 +3384 @@
 == 17/05/2021 == CM
 minor fix in co2condens4micro; fix co2 sedimentation rate outputs
+
+== 26/05/2021 == AB
+Make a cleaner initialization of some variables in simu_MCS.F90

trunk/LMDZ.MARS/util/simu_MCS.F90

@@ -155 +155 @@
 integer :: nbvar                                       ! nb of variables that will be processed
 logical :: var_ok                                      ! is this variable to be processed?
-logical :: dustok1,dustok2,dustok3,wiceok = .false.    ! is it possible to compute opacities and how?
+logical :: dustok1,dustok2,dustok3,wiceok              ! is it possible to compute opacities and how?
 character(len=64) :: GCMvarname,OBSvarname,outvarname  ! name of the variables
 integer :: nbdim                                       ! nb of dimensions of a variable
@@ -539 +539 @@
 ! 2.1.1 Read the GCM variables
 !================================================================
+! Initialize logicals
+dustok1 = .false.
+dustok2 = .false.
+dustok3 = .false.
+wiceok = .false.
+
 ! Get nbvarfile (total number of variables in the GCM file)
 status=NF90_INQUIRE(gcmfid,nVariables=nbvarfile)