Changeset 2525 for trunk/LMDZ.MARS/util/simu_MCS.F90

Timestamp:

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

Author:

abierjon

Message:

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

AB

File:

• trunk/LMDZ.MARS/util/simu_MCS.F90 (modified) (2 diffs)

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)