Changeset 1780 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r11 r1780  
    3131   CALL nl_get_truelat1 ( 1 , truelat1 )
    3232   CALL nl_get_truelat2 ( 1 , truelat2 )
     33   CALL nl_get_cen_lat ( 1 , cen_lat )
     34   CALL nl_get_cen_lon ( 1 , cen_lon )
    3335   CALL nl_get_moad_cen_lat ( 1 , moad_cen_lat )
    3436   CALL nl_get_stand_lon ( 1 , stand_lon )
    … …  
    4244     CALL nl_set_julday (nest%id, julday)
    4345     CALL nl_set_iswater (nest%id, iswater )
     46     CALL nl_set_cen_lat ( nest%id , cen_lat )
     47     CALL nl_set_cen_lon ( nest%id , cen_lon )
    4448     CALL nl_set_truelat1 ( nest%id , truelat1 )
    4549     CALL nl_set_truelat2 ( nest%id , truelat2 )
    … …  
    4953   END IF
    5054   nest%gmt     = gmt
    51    nest%julday  = julday
    52    nest%julyr   = julyr
    53    nest%iswater = iswater
    54    nest%cen_lat = cen_lat
    55    nest%cen_lon = cen_lon
    56    nest%truelat1= truelat1
    57    nest%truelat2= truelat2
    58    nest%moad_cen_lat= moad_cen_lat
    59    nest%stand_lon= stand_lon
    60    nest%map_proj= map_proj
     55   nest%julday  = julday 
     56   nest%julyr   = julyr 
     57   nest%iswater = iswater 
     58   nest%cen_lat = cen_lat 
     59   nest%cen_lon = cen_lon 
     60   nest%truelat1= truelat1 
     61   nest%truelat2= truelat2 
     62   nest%moad_cen_lat= moad_cen_lat 
     63   nest%stand_lon= stand_lon 
     64   nest%map_proj= map_proj 
    6165
    6266   nest%step_number  = parent%step_number
Note: See TracChangeset for help on using the changeset viewer.