source: LMDZ5/branches/LF-private/libf/phylmd/thermcell_out3d.h @ 5456

Last change on this file since 5456 was 1403, checked in by Laurent Fairhead, 15 years ago

Merged LMDZ4V5.0-dev branch changes r1292:r1399 to trunk.

Validation:
Validation consisted in compiling the HEAD revision of the trunk,
LMDZ4V5.0-dev branch and the merged sources and running different
configurations on local and SX8 machines comparing results.

Local machine: bench configuration, 32x24x11, gfortran

  • IPSLCM5A configuration (comparison between trunk and merged sources):
    • numerical convergence on dynamical fields over 3 days
    • start files are equivalent (except for RN and PB fields)
    • daily history files equivalent
  • MH07 configuration, new physics package (comparison between LMDZ4V5.0-dev branch and merged sources):
    • numerical convergence on dynamical fields over 3 days
    • start files are equivalent (except for RN and PB fields)
    • daily history files equivalent

SX8 machine (brodie), 96x95x39 on 4 processors:

  • IPSLCM5A configuration:
    • start files are equivalent (except for RN and PB fields)
    • monthly history files equivalent
  • MH07 configuration:
    • start files are equivalent (except for RN and PB fields)
    • monthly history files equivalent

Changes to the makegcm and create_make_gcm scripts to take into account
main programs in F90 files

Fusion de la branche LMDZ4V5.0-dev (r1292:r1399) au tronc principal

Validation:
La validation a consisté à compiler la HEAD de le trunk et de la banche
LMDZ4V5.0-dev et les sources fusionnées et de faire tourner le modéle selon
différentes configurations en local et sur SX8 et de comparer les résultats

En local: 32x24x11, config bench/gfortran

  • pour une config IPSLCM5A (comparaison tronc/fusion):
    • convergence numérique sur les champs dynamiques après 3 jours
    • restart et restartphy égaux (à part sur RN et Pb)
    • fichiers histoire égaux
  • pour une config nlle physique (MH07) (comparaison LMDZ4v5.0-dev/fusion):
    • convergence numérique sur les champs dynamiques après 3 jours
    • restart et restartphy égaux
    • fichiers histoire équivalents

Sur brodie, 96x95x39 sur 4 proc:

  • pour une config IPSLCM5A:
    • restart et restartphy égaux (à part sur RN et PB)
    • pas de différence dans les fichiers histmth.nc
  • pour une config MH07
    • restart et restartphy égaux (à part sur RN et PB)
    • pas de différence dans les fichiers histmth.nc

Changement sur makegcm et create_make-gcm pour pouvoir prendre en compte des
programmes principaux en *F90
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 4.5 KB
Line 
1!       if (sorties) then
2
3!      print*,'16 OK convect8'
4         call wrgradsfi(1,nlay,pt(igout,1:klev),'pt        ','pt        ')
5         call wrgradsfi(1,nlay,fraca(igout,1:klev),'fraca     ','fraca     ')
6         call wrgradsfi(1,nlay,zh(igout,1:klev),'zh        ','zh        ')
7         call wrgradsfi(1,nlay,zha(igout,1:klev),'zha        ','zha        ')
8         call wrgradsfi(1,nlay,zua(igout,1:klev),'zua        ','zua        ')
9         call wrgradsfi(1,nlay,zva(igout,1:klev),'zva        ','zva        ')
10         call wrgradsfi(1,nlay,zu(igout,1:klev),'zu        ','zu        ')
11         call wrgradsfi(1,nlay,zv(igout,1:klev),'zv        ','zv        ')
12         call wrgradsfi(1,nlay,zo(igout,1:klev),'zo        ','zo        ')
13         call wrgradsfi(1,1,zmax(igout),'zmax      ','zmax      ')
14!         call wrgradsfi(1,nlay,zdhadj(igout,1:klev),'zdhadj    ','zdhadj    ')
15         call wrgradsfi(1,nlay,pduadj(igout,1:klev),'pduadj    ','pduadj    ')
16         call wrgradsfi(1,nlay,pdvadj(igout,1:klev),'pdvadj    ','pdvadj    ')
17         call wrgradsfi(1,nlay,pdoadj(igout,1:klev),'pdoadj    ','pdoadj    ')
18         call wrgradsfi(1,nlay,entr(igout,1:klev),'entr      ','entr      ')
19         call wrgradsfi(1,nlay,detr(igout,1:klev),'detr      ','detr      ')
20         call wrgradsfi(1,nlay,fm(igout,1:klev),'fm        ','fm        ')
21         call wrgradsfi(1,nlay,zw2(igout,1:klev),'zw2       ','zw2       ')
22         call wrgradsfi(1,nlay,zw_est(igout,1:klev),'w_est      ','w_est      ')
23!on sort les moments
24         call wrgradsfi(1,nlay,thetath2(igout,1:klev),'zh2       ','zh2       ')
25         call wrgradsfi(1,nlay,wth2(igout,1:klev),'w2       ','w2       ')
26         call wrgradsfi(1,nlay,wth3(igout,1:klev),'w3       ','w3       ')
27         call wrgradsfi(1,nlay,q2(igout,1:klev),'q2       ','q2       ')
28!
29!
30         call wrgradsfi(1,nlay,wthl(igout,1:klev),'wthl       ','wthl       ')
31         call wrgradsfi(1,nlay,wthv(igout,1:klev),'wthv       ','wthv       ')
32         call wrgradsfi(1,nlay,wq(igout,1:klev),'wq       ','wq       ')
33         
34         call wrgradsfi(1,nlay,ztva(igout,1:klev),'ztva      ','ztva      ')
35         call wrgradsfi(1,nlay,ztv(igout,1:klev),'ztv       ','ztv       ')
36
37         call wrgradsfi(1,nlay,zo(igout,1:klev),'zo        ','zo        ')
38         call wrgradsfi(1,nlay,zoa(igout,1:klev),'zoa        ','zoa        ')
39
40!nouveaux diagnostiques
41         call wrgradsfi(1,nlay,zthl(igout,1:klev),'zthl        ','zthl        ')
42         call wrgradsfi(1,nlay,zta(igout,1:klev),'zta        ','zta        ')
43         call wrgradsfi(1,nlay,zl(igout,1:klev),'zl        ','zl        ')
44         call wrgradsfi(1,nlay,zdthladj(igout,1:klev),'zdthladj    ',  &
45     &        'zdthladj    ')
46         call wrgradsfi(1,nlay,ztla(igout,1:klev),'ztla      ','ztla      ')
47         call wrgradsfi(1,nlay,zqta(igout,1:klev),'zqta      ','zqta      ')
48         call wrgradsfi(1,nlay,zqla(igout,1:klev),'zqla      ','zqla      ')
49         call wrgradsfi(1,nlay,deltaz(igout,1:klev),'deltaz      ','deltaz      ')
50!nouveaux diagnostiques
51      call wrgradsfi(1,nlay,entr_star  (igout,1:klev),'entr_star   ','entr_star   ')
52      call wrgradsfi(1,nlay,detr_star  (igout,1:klev),'detr_star   ','detr_star   ')     
53      call wrgradsfi(1,nlay,f_star    (igout,1:klev),'f_star   ','f_star   ')
54      call wrgradsfi(1,nlay,zqsat    (igout,1:klev),'zqsat   ','zqsat   ')
55      call wrgradsfi(1,nlay,zqsatth    (igout,1:klev),'qsath   ','qsath   ')
56      call wrgradsfi(1,nlay,alim_star    (igout,1:klev),'alim_star   ','alim_star   ')
57!      call wrgradsfi(1,nlay,alim    (igout,1:klev),'alim   ','alim   ')
58      call wrgradsfi(1,1,f(igout),'f      ','f      ')
59      call wrgradsfi(1,1,alim_star_tot(igout),'a_s_t      ','a_s_t      ')
60      call wrgradsfi(1,1,zmax(igout),'zmax      ','zmax      ')
61      call wrgradsfi(1,1,zmax_sec(igout),'z_sec      ','z_sec      ')
62      call wrgradsfi(1,1,zmix(igout),'zmix      ','zmix      ') 
63!      call wrgradsfi(1,1,nivcon(igout),'nivcon      ','nivcon      ')
64      call wrgradsfi(1,1,zcon(igout),'zcon      ','zcon      ')
65      call wrgradsfi(1,1,zcon2(igout),'zcon2      ','zcon2      ')
66      zsortie1d(:)=lmax(:)
67      call wrgradsfi(1,1,zsortie1d(igout),'lmax      ','lmax      ')
68      call wrgradsfi(1,1,wmax(igout),'wmax      ','wmax      ')
69      call wrgradsfi(1,1,wmax_sec(igout),'w_sec      ','w_sec      ')
70!      zsortie1d(:)=lmix(:)
71!      call wrgradsfi(1,1,zsortie1d(igout),'lmix      ','lmix      ')
72!      zsortie1d(:)=lentr(:)
73!      call wrgradsfi(1,1,zsortie1d(igout),'lentr      ','lentr     ')
74
75      print*,'Fin des wrgradsfi'
Note: See TracBrowser for help on using the repository browser.