Changeset 2391 for LMDZ5/trunk/libf/dyn3d_common

Timestamp:

Nov 10, 2015, 9:51:52 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Fix some minor anomalies spotted by the xlf compiler:

• infotrac : wrongly giving integer values to logicals
• surf_ocean_mod and yamada_c : should be a space between "stop" and message; but avoid using stop, use abort_physic routine instead.
• readchlorophyll: using isnan() is not standard; compare the variable to itself instead (will return .false. if NaN).

While at it, also added some missing "only" clauses when using modules.

EM

File:

• LMDZ5/trunk/libf/dyn3d_common/infotrac.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/infotrac.F90

@@ -59 +59 @@
 
   SUBROUTINE infotrac_init
-    USE control_mod
+    USE control_mod, ONLY: planet_type, config_inca
 #ifdef REPROBUS
     USE CHEM_REP, ONLY : Init_chem_rep_trac
@@ -276 +276 @@
              ! Y-a-t-il 1 ou 2 noms de traceurs? -> On regarde s'il y a un
              ! espace ou pas au milieu de la chaine.
-             continu=1
-             nouveau_traceurdef=0
+             continu=.true.
+             nouveau_traceurdef=.false.
              iiq=1
              do while (continu)
                 if (tchaine(iiq:iiq).eq.' ') then
-                  nouveau_traceurdef=1
-                  continu=0
+                  nouveau_traceurdef=.true.
+                  continu=.false.
                 else if (iiq.lt.LEN_TRIM(tchaine)) then
                   iiq=iiq+1
                 else
-                  continu=0      
+                  continu=.false.
                 endif
              enddo