Ignore:
Timestamp:
Sep 14, 2016, 5:15:16 PM (8 years ago)
Author:
mlefevre
Message:

added nlayer as an argument to geom initialization in mesoscale

Location:
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/update_inputs_physiq_mod.F

    r1582 r1595  
    225225            ims,ime,jms,jme,&
    226226            ips,ipe,jps,jpe,&
    227             JULYR,ngrid,&
     227            JULYR,ngrid,nlayer,&
    228228            DX,DY,MSFT,&
    229229            lat_input, lon_input,&
    … …  
    241241
    242242   INTEGER, INTENT(IN) :: ims,ime,jms,jme
    243    INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,ngrid
     243   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,ngrid,nlayer
    244244   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: &
    245245     MSFT,XLAT,XLONG
    … …  
    352352      ELSE
    353353       albedodat(subs)=CST_AL
    354        IF ( (i == ips) .AND. (j == jps) ) PRINT *,'** Mars ** SET CONSTANT ALBEDO ', albedodat_val
     354       IF ( (i == ips) .AND. (j == jps) ) PRINT *,'** Mars ** SET CONSTANT ALBEDO ', albedodat
    355355      ENDIF
    356356     ELSE

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_void_lmd_new/update_inputs_physiq_mod.F

    r1590 r1595  
    4747            ims,ime,jms,jme,&
    4848            ips,ipe,jps,jpe,&
    49             JULYR,ngrid,&
     49            JULYR,ngrid,nlayer,&
    5050            DX,DY,MSFT,&
    5151            lat_input, lon_input,&
    … …  
    5353
    5454   INTEGER, INTENT(IN) :: ims,ime,jms,jme
    55    INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,ngrid
     55   INTEGER, INTENT(IN) :: ips,ipe,jps,jpe,JULYR,ngrid,nlayer
    5656   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN)  :: &
    5757     MSFT,XLAT,XLONG
    … …  
    119119
    120120END SUBROUTINE update_inputs_physiq_turb
    121 
    122121!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    123122!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new

    r1590 r1595  
    590590            ims,ime,jms,jme,&
    591591            ips,ipe,jps,jpe,&
    592             JULYR,ngrid,&
     592            JULYR,ngrid,nlayer,&
    593593            DX,DY,MSFT,&
    594594            lat_input, lon_input,&
Note: See TracChangeset for help on using the changeset viewer.