Changeset 2695 for LMDZ5/trunk/libf/phylmd/StratAer/micphy_tstep.F90

Timestamp:

Nov 1, 2016, 11:19:45 AM (8 years ago)

Author:

oboucher

Message:

Removing useless global variables
Interpolation only done once a month
Changing test orders in implicit coagulation routine as some compilers didn't like it

File:

• LMDZ5/trunk/libf/phylmd/StratAer/micphy_tstep.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/StratAer/micphy_tstep.F90

@@ -8 +8 @@
   USE cond_evap_tstep_mod
   USE sulfate_aer_mod, ONLY : STRAACT
-  USE YOMCST
+  USE YOMCST, ONLY : RPI, RD, RG
 
   IMPLICIT NONE
@@ -74 +74 @@
     PDT=pdtphys
     count_tstep=0
-    DO while(PDT>0.0)
+    DO WHILE (PDT>0.0)
       count_tstep=count_tstep+1
-      if( count_tstep .GT. nbtstep )  exit
+      IF (count_tstep .GT. nbtstep)  EXIT
       ! convert tr_seri(GASH2SO4) (in kg/kgA) to H2SO4 number density (in molecules/cm3) 
       rhoa=tr_seri(ilon,ilev,id_H2SO4_strat) &
@@ -145 +145 @@
   ENDDO
 
-  IF (MINVAL(tr_seri(:,:,:)).LT.0.0) THEN
+  IF (MINVAL(tr_seri).LT.0.0) THEN
     DO ilon=1, klon
     DO ilev=1, klev