Ignore:
Timestamp:
Jan 24, 2011, 6:49:52 PM (14 years ago)
Author:
aslmd
Message:

spiga:correction, v17 majeure (ajout LES), celle-ci v18 mineure

Location:
trunk/mesoscale/LMD_LES_MARS/modif_mars
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/dimphys.h

    r17 r18  
    33
    44
    5          INTEGER, parameter :: wiim=36
    6          INTEGER, parameter :: wjjm=36
    7          INTEGER, PARAMETER :: ngridmx=1296
     5         INTEGER, parameter :: wiim=72
     6         INTEGER, parameter :: wjjm=72
     7         INTEGER, PARAMETER :: ngridmx=5184
    88         INTEGER, parameter :: nlayermx=200
    99         INTEGER, PARAMETER :: nsoilmx=10

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/makeles

    r17 r18  
    107107mv yeah configure.wrf
    108108sed s+"-fastsse"+"-fastsse -mcmodel=medium -Mlarge_arrays"+g configure.wrf > yeah
     109
     110        ### TEST TEST
     111        mv yeah configure.wrf
     112
     113sed s+"-fastsse"+" "+g configure.wrf > yeah
     114#
     115# sometimes fastsse is problematic
     116#
     117
    109118##sed s+"-fastsse"+"-fastsse -mcmodel=medium"+g configure.wrf > yeah
    110119mv yeah configure.wrf

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/module_initialize_les.F

    r17 r18  
    668668  ENDDO
    669669  print *, 'constant zonal wind ', config_flags%init_U
     670  !!! ****** ou autre possibilité
     671  !!! >   grid%u_1 = grid%u_1*0. + config_flags%init_U
     672  !!! >   grid%u_2 = grid%u_2*0. + config_flags%init_U
    670673ENDIF
    671674IF (config_flags%init_V .ne. 0.) THEN

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/module_lmd_driver_output1.inc

    r17 r18  
    11       TSURF,&
     2       TAU_DUST,&
     3       SWDOWNZ,&
     4       LWDOWNZ,&
     5       USTM,&
     6       HFX,&

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/module_lmd_driver_output2.inc

    r17 r18  
    11REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT)  :: &
    22       TSURF,&
     3       TAU_DUST,&
     4       SWDOWNZ,&
     5       LWDOWNZ,&
     6       USTM,&
     7       HFX,&
    38   PSFC,TSK
    49REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(OUT)  :: &

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/module_lmd_driver_output3.inc

    r17 r18  
    11TSURF(i,j) = output_tab2d(subs,ind_TSURF)
     2TAU_DUST(i,j) = output_tab2d(subs,ind_TAU_DUST)
     3SWDOWNZ(i,j) = output_tab2d(subs,ind_SWDOWNZ)
     4LWDOWNZ(i,j) = output_tab2d(subs,ind_LWDOWNZ)
     5USTM(i,j) = output_tab2d(subs,ind_USTM)
     6HFX(i,j) = output_tab2d(subs,ind_HFX)

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/module_lmd_driver_output4.inc

    r17 r18  
    11  &    ,TSURF=grid%TSURF   &
     2  &    ,TAU_DUST=grid%TAU_DUST   &
     3  &    ,SWDOWNZ=grid%SWDOWNZ   &
     4  &    ,LWDOWNZ=grid%LWDOWNZ   &
     5  &    ,USTM=grid%USTM   &
     6  &    ,HFX=grid%HFX   &

  • trunk/mesoscale/LMD_LES_MARS/modif_mars/wrf_output_2d.h

    r17 r18  
    33!-------------------
    44      INTEGER, PARAMETER :: ind_TSURF = 1
    5       INTEGER, PARAMETER :: n2d = 1
     5      INTEGER, PARAMETER :: ind_TAU_DUST = 2
     6      INTEGER, PARAMETER :: ind_SWDOWNZ = 3
     7      INTEGER, PARAMETER :: ind_LWDOWNZ = 4
     8      INTEGER, PARAMETER :: ind_USTM = 5
     9      INTEGER, PARAMETER :: ind_HFX = 6
     10      INTEGER, PARAMETER :: n2d = 6
Note: See TracChangeset for help on using the changeset viewer.