Changeset 549 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em

Timestamp:

Mar 1, 2012, 12:57:47 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: for improved watercycle runs: ccn_mass and ccn_number are now passed through boundaries.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F

@@ -1322 +1322 @@
                                     ims , ime , jms , jme , kms , kme , &
                                     its , ite , jts , jte , kts , kte )
-       print *, '**** INTERPOLATE DUSTQ **** RANK 5 in SCALAR'
+       print *, '**** INTERPOLATE DUSTN **** RANK 5 in SCALAR'
        CALL vert_interp_old ( grid%em_dustn_gc , grid%em_pd_gc , scalar(:,:,:,5) , grid%em_pb , &
                                     num_metgrid_levels , 'Q' , &
@@ -1332 +1332 @@
 endif
 if ( config_flags%mars == 12 ) then
-       print *, "**** mars=12... CCN TRACERS SET TO 0"
-       DO k = 1, kte
-       DO j = jts, MIN(jte,jde-1)
-       DO i = its, MIN(ite,ide-1)
-         scalar(i,k,j,6) = 1.E-30
-         scalar(i,k,j,7) = 1.E-30
-       ENDDO
-       ENDDO
-       ENDDO
+       print *, '**** INTERPOLATE CCNQ **** RANK 6 in SCALAR'
+       CALL vert_interp_old ( grid%em_ccnq_gc , grid%em_pd_gc , scalar(:,:,:,6) , grid%em_pb , &
+                                    num_metgrid_levels , 'Q' , &
+                                    interp_type , lagrange_order , lowest_lev_from_sfc , &
+                                    zap_close_levels , force_sfc_in_vinterp , &
+                                    ids , ide , jds , jde , kds , kde , &
+                                    ims , ime , jms , jme , kms , kme , &
+                                    its , ite , jts , jte , kts , kte )
+       print *, '**** INTERPOLATE CCNN **** RANK 7 in SCALAR'
+       CALL vert_interp_old ( grid%em_ccnn_gc , grid%em_pd_gc , scalar(:,:,:,7) , grid%em_pb , &
+                                    num_metgrid_levels , 'Q' , &
+                                    interp_type , lagrange_order , lowest_lev_from_sfc , &
+                                    zap_close_levels , force_sfc_in_vinterp , &
+                                    ids , ide , jds , jde , kds , kde , &
+                                    ims , ime , jms , jme , kms , kme , &
+                                    its , ite , jts , jte , kts , kte )
 endif
 #endif