Changeset 1780 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Aug 28, 2017, 6:57:39 PM (7 years ago)

Author:

aslmd

Message:

MESOSCALE found a WRF bug which appears only with nesting and hard debug mode. not an impact at all but stringent debug mode makes the model to stop early because diagnostic CEN_LAT is not defined well. corrected the bug

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/nest_init_utils.F (modified) (3 diffs)

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

@@ -31 +31 @@
    CALL nl_get_truelat1 ( 1 , truelat1 )
    CALL nl_get_truelat2 ( 1 , truelat2 )
+   CALL nl_get_cen_lat ( 1 , cen_lat )
+   CALL nl_get_cen_lon ( 1 , cen_lon )
    CALL nl_get_moad_cen_lat ( 1 , moad_cen_lat )
    CALL nl_get_stand_lon ( 1 , stand_lon )
@@ -42 +44 @@
      CALL nl_set_julday (nest%id, julday)
      CALL nl_set_iswater (nest%id, iswater )
+     CALL nl_set_cen_lat ( nest%id , cen_lat )
+     CALL nl_set_cen_lon ( nest%id , cen_lon )
      CALL nl_set_truelat1 ( nest%id , truelat1 )
      CALL nl_set_truelat2 ( nest%id , truelat2 )
@@ -49 +53 @@
    END IF
    nest%gmt     = gmt 
-   nest%julday  = julday
-   nest%julyr   = julyr
-   nest%iswater = iswater
-   nest%cen_lat = cen_lat
-   nest%cen_lon = cen_lon
-   nest%truelat1= truelat1
-   nest%truelat2= truelat2
-   nest%moad_cen_lat= moad_cen_lat
-   nest%stand_lon= stand_lon
-   nest%map_proj= map_proj
+   nest%julday  = julday 
+   nest%julyr   = julyr 
+   nest%iswater = iswater 
+   nest%cen_lat = cen_lat 
+   nest%cen_lon = cen_lon 
+   nest%truelat1= truelat1 
+   nest%truelat2= truelat2 
+   nest%moad_cen_lat= moad_cen_lat 
+   nest%stand_lon= stand_lon 
+   nest%map_proj= map_proj 
 
    nest%step_number  = parent%step_number