Changeset 1743 for trunk/MESOSCALE

Timestamp:

Jul 24, 2017, 1:20:27 AM (8 years ago)

Author:

aslmd

Message:

MESOSCALE VENUS. bug fix. turb_resolved was hardcoded to true. print referred to isles! changed to the same settings than Mars: tubr_resolved=isles.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F (modified) (3 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F

@@ -359 +359 @@
    INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
    INTEGER, INTENT(IN) :: ips,ipe,jps,jpe
-   INTEGER :: i,j,subs,nlast
+   INTEGER :: i,j,subs,nlast      
    REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: M_WSTAR
    REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(IN) :: M_Q2
    LOGICAL, INTENT(IN ) :: RESTART,isles
 
-   turb_resolved =.true.
-   print*,'turb_resolved :',isles
+   !! to know if this is turbulence-resolving run or not
+   turb_resolved = isles
 
    DO j = jps,jpe
@@ -377 +377 @@
      !PBL wind variance
      IF (.not. restart) THEN
-      q2(subs,:) = 1.E-6
+      q2(subs,:) = 1.E-6      
       wstar(subs)=0.
      ELSE
@@ -386 +386 @@
    ENDDO
    ENDDO
-
+  
    !!---------------------!!
    !! OUTPUT FOR CHECKING !!