Changeset 97 for trunk/libf/phytitan/optcv.F

Timestamp:

Mar 22, 2011, 5:25:44 PM (14 years ago)

Author:

slebonnois

Message:

Serie de modifs SL pour homogeneisation des phytitan et phyvenus
Ca touche aussi aux liens phy/dyn (surtout a propos de clesphy0),
a verifier avec les autres, donc...

File:

• trunk/libf/phytitan/optcv.F (modified) (3 diffs)

trunk/libf/phytitan/optcv.F

@@ -51 +51 @@
       COMMON /ADJUST/ RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,RCLOUD,FARGON
       COMMON /CONST/ RGAS,RHOP,PI,SIGMA
-      COMMON /traceurs/qaer(klon,nlayer,nqmx)
+      COMMON /traceurs/qaer(klon,nlayer,nqtot)
       COMMON /part/ v(nrad),rayon(nrad),vrat,dr(nrad),dv(nrad)
 
@@ -93 +93 @@
 c      do nng=2,klon
 c       do i=1,klev           
-c        do j=1,nqmx
+c        do j=1,nqtot
 c          sum=sum+qaer(nng,i,j)*rayon(j)**3.*1.3333*3.1415*1000.
 c        enddo
@@ -107 +107 @@
       if (ioptv.eq.0) then
 
-c verif pour taille zqaer_1pt, sachant que si microfi=0 et nqmx=1, 
+c verif pour taille zqaer_1pt, sachant que si microfi=0 et nqtot=1, 
 c il faut quand meme qu'on lise la look-up table de dim nrad=10
 c et si microfi=1, on doit avoir nmicro=nrad (dans microtab.h)