Changeset 129

Timestamp:

May 25, 2011, 12:45:00 PM (14 years ago)

Author:

acolaitis

Message:

Minor fix in module_lmd_driver.F

File:

• trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F (modified) (1 diff)

trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

@@ -1212 +1212 @@
 !! Mars mode 20 : add a passive tracer with radioactive-like decay
 IF (MARS_MODE .EQ. 20) THEN
-   print *, 'RADIOACTIVE-LIKE TRACER WITH SOURCE AT SURFACE LAYER.'
+   IF ( (i == ips) .AND. (j == jps) )   print *, 'RADIOACTIVE-LIKE TRACER WITH SOURCE AT SURFACE LAYER.'
    tau_decay=60.*10. !! why not make it a namelist argument?
    SCALAR(i,kps:kpe,j,2) = SCALAR(i,kps:kpe,j,2)*exp(-dt/tau_decay)