Changeset 1248 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

May 11, 2014, 4:01:21 PM (11 years ago)

Author:

aslmd

Message:

MESOSCALE. Added the possibility to use the second correction by Wee et al. 2012. Not activated by default. Note that tests showed that differences in the Martian case for simu at z<50km are negligible (not tested upward).

File:

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

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

@@ -145 +145 @@
 !****MARS
       INTEGER :: hypsometric_opt = 1 ! classic
+      INTEGER :: interp_theta = .true. ! classic
       !INTEGER :: hypsometric_opt = 2 ! Wee et al. 2012 correction
+      !INTEGER :: interp_theta = .false. ! Wee et al. 2012 correction
       REAL :: pfu, pfd, phm
 
@@ -1173 +1175 @@
                                its , ite , jts , jte , kts , kte )
          END IF
-   
+  
+IF ( interp_theta ) THEN 
          !  The input field is temperature, we want potential temp.
 !****MARS: here em_p_gc is really needed ! 
@@ -1180 +1183 @@
                            ims , ime , jms , jme , 1   , num_metgrid_levels , &
                            its , ite , jts , jte , 1   , num_metgrid_levels )
-   
+ENDIF   
+
 
 
@@ -1261 +1265 @@
                             ims , ime , jms , jme , kms , kme , &
                             its , ite , jts , jte , kts , kte )
- 
+
+         !  Depending on the setting of interp_theta = T/F, t_gc is is either theta Xor 
+         !  temperature, and that means that the t_2 field is also the associated field.
+         !  It is better to interpolate temperature and potential temperature in LOG(p),
+         !  regardless of requested default.
+
          !!****MARS: normalement c'est vert_interp
          CALL vert_interp_old ( grid%em_t_gc , grid%em_pd_gc , grid%em_t_2               , grid%em_pb , &
@@ -1270 +1279 @@
                             ims , ime , jms , jme , kms , kme , &
                             its , ite , jts , jte , kts , kte )
+
+         IF ( .NOT. interp_theta ) THEN
+
+            !! correction Wee et al. 2012 
+            !! first interpolate temperature (see above)
+            !! then interpolate pressure
+            !! and in the end compute potential temperature
+
+            !! scalar just an intermediate thing for interpolated pressure 
+            !! -- it is reinitialized afterwards
+            !! It is better to interpolate pressure in p regardless default options
+            CALL vert_interp_old ( grid%em_p_gc , grid%em_pd_gc , scalar(:,:,:,1)         , grid%em_pb , &
+                            num_metgrid_levels , 'T' , &
+                            1, 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 )
+
+            CALL t_to_theta ( grid%em_t_2 , scalar(:,:,:,1) , p00 , &
+                              ids , ide , jds , jde , kds , kde , &
+                              ims , ime , jms , jme , kms , kme , &
+                              its , ite , jts , jte , kts , kte )
+      
+            scalar(:,:,:,1) = 0.
+         END IF
+