Ignore:
Timestamp:
Mar 8, 2011, 9:10:25 AM (13 years ago)
Author:
Laurent Fairhead
Message:

Merge of development branch LMDZ5V2.0-dev r1455:r1491 into the trunk.
Validation made locally: restart files are strictly equal between the HEAD of the trunk
and r1491 of LMDZ5V2.0-dev

Synchro de la branche de développement LMDZ5V2.0-dev r1455:r1491 et de la trunk
Validation faite en local: les fichiers restart sont équivalents entre la HEAD de la trunk
et la révision r1491 de LMDZ5V2.0-dev

Location:
LMDZ5/trunk
Files:
4 deleted
6 edited
5 copied

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk

  • LMDZ5/trunk/libf/dyn3d/ce0l.F90

    r1425 r1492  
    9191  END IF
    9292
     93  IF (grilles_gcm_netcdf) THEN
     94     WRITE(lunout,'(//)')
     95     WRITE(lunout,*) '  ***************************  '
     96     WRITE(lunout,*) '  ***  grilles_gcm_netcdf ***  '
     97     WRITE(lunout,*) '  ***************************  '
     98     WRITE(lunout,'(//)')
     99     CALL grilles_gcm_netcdf_sub()
     100  END IF
    93101#endif
    94102! of #ifndef CPP_EARTH #else

  • LMDZ5/trunk/libf/dyn3d/comdissipn.h

    r524 r1492  
    22! $Header$
    33!
    4 c-----------------------------------------------------------------------
    5 c INCLUDE comdissipn.h
     4!  Attention : ce fichier include est compatible format fixe/format libre
     5!                 veillez à n'utiliser que des ! pour les commentaires
     6!                 et à bien positionner les & des lignes de continuation
     7!                 (les placer en colonne 6 et en colonne 73)
     8!-----------------------------------------------------------------------
     9! INCLUDE comdissipn.h
    610
    711      REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
    8 c
    9       COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,
    10      1                        cdivu,      crot,         cdivh
     12!
     13      COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     &
     14     &                        cdivu,      crot,         cdivh
    1115
    12 c
    13 c    Les parametres de ce common proviennent des calculs effectues dans
    14 c             Inidissip  .
    15 c
    16 c-----------------------------------------------------------------------
     16!
     17!    Les parametres de ce common proviennent des calculs effectues dans
     18!             Inidissip  .
     19!
     20!-----------------------------------------------------------------------

  • LMDZ5/trunk/libf/dyn3d/conf_gcm.F

    r1418 r1492  
    841841      ok_etat0 = .TRUE.
    842842      CALL getin('ok_etat0',ok_etat0)
     843
     844!Config  Key  = grilles_gcm_netcdf
     845!Config  Desc = creation de fichier grilles_gcm.nc dans create_etat0_limit
     846!Config  Def  = n
     847      grilles_gcm_netcdf = .FALSE.
     848      CALL getin('grilles_gcm_netcdf',grilles_gcm_netcdf)
    843849
    844850      write(lunout,*)' #########################################'
    … …  
    887893      write(lunout,*)' ok_limit = ', ok_limit
    888894      write(lunout,*)' ok_etat0 = ', ok_etat0
     895      write(lunout,*)' grilles_gcm_netcdf = ', grilles_gcm_netcdf
    889896c
    890897      RETURN

  • LMDZ5/trunk/libf/dyn3d/etat0_netcdf.F90

    r1425 r1492  
    9898  REAL    :: dummy
    9999  LOGICAL :: ok_newmicro, ok_journe, ok_mensuel, ok_instan, ok_hf
    100   LOGICAL :: ok_LES, ok_ade, ok_aie, aerosol_couple, new_aod
     100  LOGICAL :: ok_LES, ok_ade, ok_aie, aerosol_couple, new_aod, callstats
    101101  INTEGER :: iflag_radia, flag_aerosol
    102102  REAL    :: bl95_b0, bl95_b1, fact_cldcon, facttemps, ratqsbas, ratqshaut
    … …  
    130130!--- CONSTRUCT A GRID
    131131  CALL conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES,     &
     132                   callstats,                                           &
    132133                   solarlong0,seuil_inversion,                          &
    133134                   fact_cldcon, facttemps,ok_newmicro,iflag_radia,      &

  • LMDZ5/trunk/libf/dyn3d/logic.h

    r1319 r1492  
    1010     &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
    1111     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
    12      &  ,ok_limit,ok_etat0
     12     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
    1313
    1414      LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
    1515     & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
    1616     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
    17      &  ,ok_limit,ok_etat0
     17     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
    1818
    1919      INTEGER iflag_phys
Note: See TracChangeset for help on using the changeset viewer.