Changeset 579 for trunk/MESOSCALE_DEV

Timestamp:

Mar 14, 2012, 1:22:19 AM (13 years ago)

Author:

aslmd

Message:

PYTHON UTIL. improved comments for the first part. corrected a bug: for 3D fields xyt it was necessary to add --vert 0 to have x,y,or t as abscissae, this is no longer the case.

File:

• trunk/MESOSCALE_DEV/NOTES.txt (modified) (1 diff)

trunk/MESOSCALE_DEV/NOTES.txt

@@ +1 @@
+Mhh c'est un peu plus compliqué, car en toute rigueur il peut y avoir plusieurs traceurs poussières si on considère le cas où l'on tourne avec plusieurs bins radiativement actifs...
+
+Donc il vaut mieux détecter les scatterers poussières au début de la physique avec un code du style (à tester et corriger):
+
+-------------------------------------------------------------
+#include "aerkind.h" ! (qui contient name_iaer)
+
+ (...blabla)
+
+      INTEGER :: iaer
+      CHARACTER(LEN=20) :: txt
+      INTEGER,SAVE :: iaerdust(naerkind)
+      INTEGER,SAVE :: naerdust ! number of dust scatterers
+
+      (...blablablabla)
+
+      IF (firstcall) THEN
+        naerdust=0
+        DO iaer=1,naerkind
+          txt=name_iaer(iaer)
+          IF (txt(1:4).eq."dust") THEN
+            naerdust=naerdust+1
+            iaerdust(naerdust)=iaer
+          ENDIF
+        ENDDO
+      ENDIF
+-------------------------------------------------------------
+
+Et ensuite en toute rigueur encore une fois il faut sommer les taus des différents scatterers poussières dans la partie slope de ton code:
+
+-------------------------------------------------------------
+      DO ig=1,ngrid
+        DO l=1,2
+          (...blabla yeah blabla)
+          sl_tau = 0.
+          DO iaer=1,naerdust
+            sl_tau = sl_tau + tau(ig,iaerdust(iaer))
+          ENDDO
+          (...blabla yeah)
+        ENDDO
+      ENDDO
+------------------------------------------------------------- 
+
 
 quand on rajoute une variable dans Registry il faut absolument recompiler avec