Changeset 481 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/main

Timestamp:

Dec 19, 2011, 6:54:32 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected a bug with dust outputs through MESOINI in new physics. added mars=12 for scavenging runs (see r76).

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/main/real_em.F (modified) (8 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/main/real_em.F

@@ -712 +712 @@
 IF ( (config_flags%mars .eq. 1) .OR. &
      (config_flags%mars .eq. 3) .OR. &
-     (config_flags%mars .eq. 11) ) THEN
+     (config_flags%mars .eq. 11) .OR. &
+     (config_flags%mars .eq. 12) ) THEN
       CALL couple ( grid%em_mu_2 , grid%em_mub , q2bdy3dtemp1 , grid%scalar(:,:,:,3) , 't' , grid%msft , &
                     ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, ips, ipe, jps, jpe, kps, kpe )
 ENDIF
-IF (config_flags%mars .eq. 11) THEN
+IF ((config_flags%mars .eq. 11) .OR. (config_flags%mars .eq. 12)) THEN
       CALL couple ( grid%em_mu_2 , grid%em_mub , q3bdy3dtemp1 , grid%scalar(:,:,:,4) , 't' , grid%msft , &
                     ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, ips, ipe, jps, jpe, kps, kpe )
@@ -786 +787 @@
 IF ( (config_flags%mars .eq. 1) .OR. &
      (config_flags%mars .eq. 3) .OR. &
-     (config_flags%mars .eq. 11) ) THEN
+     (config_flags%mars .eq. 11) .OR. &
+     (config_flags%mars .eq. 12) ) THEN
       CALL stuff_bdy     ( q2bdy3dtemp1 , grid%scalar_b(:,:,:,:,3)   , 'T' , ijds , ijde , spec_bdy_width      , &
                                                                  ids , ide , jds , jde , kds , kde , &
@@ -792 +794 @@
                                                                  ips , ipe , jps , jpe , kps , kpe )
 ENDIF
-IF (config_flags%mars .eq. 11) THEN
+IF ((config_flags%mars .eq. 11) .OR. (config_flags%mars .eq. 12)) THEN
       CALL stuff_bdy     ( q3bdy3dtemp1 , grid%scalar_b(:,:,:,:,4)   , 'T' , ijds , ijde , spec_bdy_width      , &
                                                                  ids , ide , jds , jde , kds , kde , &
@@ -863 +865 @@
 IF ( (config_flags%mars .eq. 1) .OR. &
      (config_flags%mars .eq. 3) .OR. &
-     (config_flags%mars .eq. 11) ) THEN
+     (config_flags%mars .eq. 11) .OR. &
+     (config_flags%mars .eq. 12) ) THEN
       CALL couple ( grid%em_mu_2 , grid%em_mub , q2bdy3dtemp2 , grid%scalar(:,:,:,3) , 't' , grid%msft , &
                     ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, ips, ipe, jps, jpe, kps, kpe )
 ENDIF
-IF (config_flags%mars .eq. 11) THEN
+IF ((config_flags%mars .eq. 11) .OR. (config_flags%mars .eq. 12)) THEN
       CALL couple ( grid%em_mu_2 , grid%em_mub , q3bdy3dtemp2 , grid%scalar(:,:,:,4) , 't' , grid%msft , &
                     ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, ips, ipe, jps, jpe, kps, kpe )
@@ -941 +944 @@
 IF ( (config_flags%mars .eq. 1) .OR. &
      (config_flags%mars .eq. 3) .OR. &
-     (config_flags%mars .eq. 11) ) THEN
+     (config_flags%mars .eq. 11) .OR. &
+     (config_flags%mars .eq. 12) ) THEN
       CALL stuff_bdytend ( q2bdy3dtemp2 , q2bdy3dtemp1 , REAL(interval_seconds) ,grid%scalar_bt(:,:,:,:,3) , 'T' , &
                                                             ijds , ijde , spec_bdy_width      , &
@@ -948 +952 @@
                                                             ips , ipe , jps , jpe , kps , kpe )
 ENDIF
-IF (config_flags%mars .eq. 11) THEN
+IF ((config_flags%mars .eq. 11) .OR. (config_flags%mars .eq. 12)) THEN
       CALL stuff_bdytend ( q3bdy3dtemp2 , q3bdy3dtemp1 , REAL(interval_seconds) , grid%scalar_bt(:,:,:,:,4) , 'T' , &
                                                             ijds , ijde , spec_bdy_width      , &
@@ -1112 +1116 @@
 IF ( (config_flags%mars .eq. 1) .OR. &
      (config_flags%mars .eq. 3) .OR. &
-     (config_flags%mars .eq. 11) ) THEN
+     (config_flags%mars .eq. 11) .OR. &
+     (config_flags%mars .eq. 12) ) THEN
         CALL stuff_bdy     ( q2bdy3dtemp1 , grid%scalar_b(:,:,:,:,3)   , 'T', ijds , ijde , spec_bdy_width      , &
                                                                     ids , ide , jds , jde , kds , kde , &
@@ -1118 +1123 @@
                                                                     ips , ipe , jps , jpe , kps , kpe )
 ENDIF
-IF (config_flags%mars .eq. 11) THEN
+IF ((config_flags%mars .eq. 11) .OR. (config_flags%mars .eq. 12)) THEN
         CALL stuff_bdy     ( q3bdy3dtemp1 , grid%scalar_b(:,:,:,:,4)   , 'T', ijds , ijde , spec_bdy_width      , &
                                                                     ids , ide , jds , jde , kds , kde , &