Ignore:
Timestamp:
Jul 21, 2024, 1:07:18 PM (7 months ago)
Author:
abarral
Message:

Use latest FCM source (2021.05.0) [Note: we still use the legacy FCM1 build system]
Correct UTF8 encoding of french chars

Compil OK (tested: oldrad/rrtm/ecrad, para/seq/1D)
Convergence (ref r5063) bench 33x OK oldrad orch2.0 (tested: para/seq)

Location:
LMDZ6/branches/Amaury_dev/libf/dyn3dmem
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.F

    r5082 r5093  
    3030c====================================================================
    3131c
    32 c   Sous-programme consacre � des diagnostics dynamiques de base
     32c   Sous-programme consacre à des diagnostics dynamiques de base
    3333c
    3434c
    … …  
    8888      real ww
    8989
    90 c   variables dynamiques interm�diaires
     90c   variables dynamiques intermédiaires
    9191      REAL,SAVE,ALLOCATABLE :: vcont(:,:,:),ucont(:,:,:)
    9292      REAL,SAVE,ALLOCATABLE :: ang(:,:,:),unat(:,:,:)
    … …  
    9696      REAL,SAVE,ALLOCATABLE :: bern(:,:,:)
    9797
    98 c   champ contenant les scalaires advect�s.
     98c   champ contenant les scalaires advectés.
    9999      real,SAVE,ALLOCATABLE :: Q(:,:,:,:)
    100100   
    101 c   champs cumul�s
     101c   champs cumulés
    102102      real,SAVE,ALLOCATABLE ::  ps_cum(:,:)
    103103      real,SAVE,ALLOCATABLE ::  masse_cum(:,:,:)
    … …  
    370370      jje=jj_end
    371371   
    372 c   �nergie cin�tique
     372c   énergie cinétique
    373373!      ucont(:,jjb:jje,:)=0
    374374
    … …  
    382382      CALL enercin_loc(vcov,ucov,vcont,ucont,ecin)
    383383
    384 c   moment cin�tique
     384c   moment cinétique
    385385!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    386386      do l=1,llm
    … …  
    490490      enddo
    491491
    492 c    flux m�ridien
     492c    flux méridien
    493493c    -------------
    494494      do iQ=1,nQ
    … …  
    642642
    643643c=====================================================================
    644 c   Transport m�ridien
     644c   Transport méridien
    645645c=====================================================================
    646646

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/conf_gcm.F90

    r5082 r5093  
    121121
    122122  !Config  Key  = prt_level
    123   !Config  Desc = niveau d'impressions de d�bogage
     123  !Config  Desc = niveau d'impressions de débogage
    124124  !Config  Def  = 0
    125   !Config  Help = Niveau d'impression pour le d�bogage
     125  !Config  Help = Niveau d'impression pour le débogage
    126126  !Config         (0 = minimum d'impression)
    127127  prt_level = 0
    … …  
    921921
    922922     !Config  Key  = use_mpi_alloc
    923      !Config  Desc = Utilise un buffer MPI en m�moire globale
     923     !Config  Desc = Utilise un buffer MPI en mémoire globale
    924924     !Config  Def  = false
    925925     !Config  Help = permet d'activer l'utilisation d'un buffer MPI
    926      !Config         en m�moire globale a l'aide de la fonction MPI_ALLOC.
    927      !Config         Cela peut am�liorer la bande passante des transferts MPI
     926     !Config         en mémoire globale a l'aide de la fonction MPI_ALLOC.
     927     !Config         Cela peut améliorer la bande passante des transferts MPI
    928928     !Config         d'un facteur 2 
    929929     use_mpi_alloc=.FALSE.
    … …  
    933933     !Config  Desc = activation de la version strato
    934934     !Config  Def  = .FALSE.
    935      !Config  Help = active la version stratosph�rique de LMDZ de F. Lott
     935     !Config  Help = active la version stratosphérique de LMDZ de F. Lott
    936936
    937937     ok_strato=.FALSE.

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90

    r5088 r5093  
    100100    CALL getpar('guide_teta',.false.,guide_teta,'guidage de T par Teta')
    101101
    102     CALL getpar('guide_add',.false.,guide_add,'for�age constant?')
     102    CALL getpar('guide_add',.false.,guide_add,'foréage constant?')
    103103    CALL getpar('guide_zon',.false.,guide_zon,'guidage moy zonale')
    104104    if (guide_zon .and. abs(grossismx - 1.) > 0.01) &
    … …  
    121121    CALL getpar('plim_guide_BL',85000.,plim_guide_BL,'BL top presnivs value')
    122122
    123 ! Sauvegarde du for�age
     123! Sauvegarde du forçage
    124124    CALL getpar('guide_sav',.false.,guide_sav,'sauvegarde guidage')
    125125    CALL getpar('iguide_sav',4,iguide_sav,'freq. sauvegarde guidage')
    … …  
    22692269        call nf95_put_var(nid, varid_alpha_q, zq)
    22702270! --------------------------------------------------------------------
    2271 ! Cr�ation des variables sauvegard�es
     2271! Création des variables sauvegardées
    22722272! --------------------------------------------------------------------
    22732273        ierr = nf90_redef(nid)

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/parallel_lmdz.F90

    r5089 r5093  
    222222!Config  Desc = taille des blocs openmp
    223223!Config  Def  = 1
    224 !Config  Help = defini la taille des packets d'it�ration openmp
     224!Config  Help = defini la taille des packets d'itération openmp
    225225!Config         distribue a chaque tache lors de l'entree dans une
    226226!Config         boucle parallelisee

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/times.F90

    r4600 r5093  
    194194      endif
    195195     
    196     ENDIF  ! using_mp�
     196    ENDIF  ! using_mpi
    197197  end subroutine allgather_timer_average
    198198 

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/top_bound_loc.F

    r5082 r5093  
    2727c   ------
    2828c
    29 c   Dissipation lin�aire (ex top_bound de la physique)
     29c   Dissipation linéaire (ex top_bound de la physique)
    3030c
    3131c=======================================================================
Note: See TracChangeset for help on using the changeset viewer.