source: LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h @ 800

Last change on this file since 800 was 792, checked in by Laurent Fairhead, 17 years ago

Modifications suite a la transformation des fichiers include pour
qu'ils soient compatibles a la fois au format fixe et au format libre
Un bon nombre de fichier *.inc du coup disparaissent
LF
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 7.7 KB
RevLine 
[692]1c
[696]2      ndex2d = 0
3      itau_dyn=itau_dyn+itau
[692]4c
[696]5      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(prt_level) 
6      CALL histwrite(nid_ctesGCM, "prt_level", itau_dyn,
7     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]8c
[696]9      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(dayref)
10      CALL histwrite(nid_ctesGCM, "dayref", itau_dyn,
11     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]12c
[696]13      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(anneeref)
14      CALL histwrite(nid_ctesGCM, "anneeref", itau_dyn,
15     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]16c
[696]17      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(raz_date)
18      CALL histwrite(nid_ctesGCM, "raz_date", itau_dyn,
19     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]20c
[696]21      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nday)
22      CALL histwrite(nid_ctesGCM, "nday", itau_dyn,
23     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]24c
[696]25      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(day_step)
26      CALL histwrite(nid_ctesGCM, "day_step", itau_dyn,
27     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]28c
[696]29      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iperiod)
30      CALL histwrite(nid_ctesGCM, "iperiod", itau_dyn,
31     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]32c
[696]33      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iapp_tracvl)
34      CALL histwrite(nid_ctesGCM, "iapp_tracvl", itau_dyn,
35     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]36c
[696]37      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iconser)
38      CALL histwrite(nid_ctesGCM, "iconser", itau_dyn,
39     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]40c
[696]41      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iecri)
42      CALL histwrite(nid_ctesGCM, "iecri", itau_dyn,
43     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]44c
[696]45      zx_tmp_2d(1:iip1,1:jjp1)=periodav
46      CALL histwrite(nid_ctesGCM, "periodav", itau_dyn,
47     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]48c
[696]49      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(idissip)
50      CALL histwrite(nid_ctesGCM, "idissip", itau_dyn,
51     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]52c
[696]53      IF(lstardis) THEN
54       zx_tmp_2d(1:iip1,1:jjp1)=1.
55      ELSE
56       zx_tmp_2d(1:iip1,1:jjp1)=0.
57      ENDIF
58      CALL histwrite(nid_ctesGCM, "lstardis", itau_dyn,
59     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]60c
[696]61      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergdiv)
62      CALL histwrite(nid_ctesGCM, "nitergdiv", itau_dyn,
63     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]64c
[696]65      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergrot)
66      CALL histwrite(nid_ctesGCM, "nitergrot", itau_dyn,
67     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]68c
[696]69      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(niterh) 
70      CALL histwrite(nid_ctesGCM, "niterh", itau_dyn,
71     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]72c
[696]73      zx_tmp_2d(1:iip1,1:jjp1)=tetagdiv
74      CALL histwrite(nid_ctesGCM, "tetagdiv", itau_dyn,
75     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]76c
[696]77      zx_tmp_2d(1:iip1,1:jjp1)=tetagrot
78      CALL histwrite(nid_ctesGCM, "tetagrot", itau_dyn,
79     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]80c
[696]81      zx_tmp_2d(1:iip1,1:jjp1)=tetatemp
82      CALL histwrite(nid_ctesGCM, "tetatemp", itau_dyn,
83     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]84c
[696]85      zx_tmp_2d(1:iip1,1:jjp1)=coefdis
86      CALL histwrite(nid_ctesGCM, "coefdis", itau_dyn,
87     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]88c
[696]89      IF(purmats) THEN
90       zx_tmp_2d(1:iip1,1:jjp1)=1.
91      ELSE
92       zx_tmp_2d(1:iip1,1:jjp1)=0.
93      ENDIF
94      CALL histwrite(nid_ctesGCM, "purmats", itau_dyn,
95     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]96c
[696]97      IF(ok_guide) THEN
98       zx_tmp_2d(1:iip1,1:jjp1)=1.
99      ELSE
100       zx_tmp_2d(1:iip1,1:jjp1)=0.
101      ENDIF
102      CALL histwrite(nid_ctesGCM, "ok_guide", itau_dyn,
103     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]104c
[696]105      IF(true_calendar) THEN
106       zx_tmp_2d(1:iip1,1:jjp1)=1.
107      ELSE
108       zx_tmp_2d(1:iip1,1:jjp1)=0.
109      ENDIF
110      CALL histwrite(nid_ctesGCM, "true_calendar", itau_dyn,
111     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]112c
[696]113      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_phys)
114      CALL histwrite(nid_ctesGCM, "iflag_phys", itau_dyn,
115     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]116c
[696]117      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iphysiq)
118      CALL histwrite(nid_ctesGCM, "iphysiq", itau_dyn,
119     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]120c
[784]121      zx_tmp_2d(1:iip1,1:jjp1)=ecritphy
[696]122      CALL histwrite(nid_ctesGCM, "ecritphy", itau_dyn,
123     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]124c
[696]125      IF(cycle_diurne) THEN
126       zx_tmp_2d(1:iip1,1:jjp1)=1.
127      ELSE
128       zx_tmp_2d(1:iip1,1:jjp1)=0.
129      ENDIF
130      CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_dyn,
131     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]132c
[696]133      IF(soil_model) THEN
134       zx_tmp_2d(1:iip1,1:jjp1)=1.
135      ELSE
136       zx_tmp_2d(1:iip1,1:jjp1)=0.
137      ENDIF
138      CALL histwrite(nid_ctesGCM, "soil_model", itau_dyn,
139     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]140c
[696]141      IF(new_oliq) THEN
142       zx_tmp_2d(1:iip1,1:jjp1)=1.
143      ELSE
144       zx_tmp_2d(1:iip1,1:jjp1)=0.
145      ENDIF
146      CALL histwrite(nid_ctesGCM, "new_oliq", itau_dyn,
147     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]148c
[696]149      IF(ok_orodr) THEN
150       zx_tmp_2d(1:iip1,1:jjp1)=1.
151      ELSE
152       zx_tmp_2d(1:iip1,1:jjp1)=0.
153      ENDIF
154      CALL histwrite(nid_ctesGCM, "ok_orodr", itau_dyn,
155     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]156c
[696]157      IF(ok_orolf) THEN
158       zx_tmp_2d(1:iip1,1:jjp1)=1.
159      ELSE
160       zx_tmp_2d(1:iip1,1:jjp1)=0.
161      ENDIF
162      CALL histwrite(nid_ctesGCM, "ok_orolf", itau_dyn,
163     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]164c
[696]165      IF(ok_limitvrai) THEN
166       zx_tmp_2d(1:iip1,1:jjp1)=1.
167      ELSE
168       zx_tmp_2d(1:iip1,1:jjp1)=0.
169      ENDIF
170      CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_dyn,
171     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]172c
[784]173      zx_tmp_2d(1:iip1,1:jjp1)=nbapp_rad
[696]174      CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_dyn,
175     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]176c
[784]177      zx_tmp_2d(1:iip1,1:jjp1)=iflag_con
[696]178      CALL histwrite(nid_ctesGCM, "iflag_con", itau_dyn,
179     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]180c
[696]181      zx_tmp_2d(1:iip1,1:jjp1)=clon
182      CALL histwrite(nid_ctesGCM, "clon", itau_dyn,
183     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]184c
[696]185      zx_tmp_2d(1:iip1,1:jjp1)=clat
186      CALL histwrite(nid_ctesGCM, "clat", itau_dyn,
187     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]188c
[696]189      zx_tmp_2d(1:iip1,1:jjp1)=grossismx
190      CALL histwrite(nid_ctesGCM, "grossismx", itau_dyn,
191     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]192c
[696]193      zx_tmp_2d(1:iip1,1:jjp1)=grossismy
194      CALL histwrite(nid_ctesGCM, "grossismy", itau_dyn,
195     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]196c
[696]197      IF(fxyhypb) THEN
198       zx_tmp_2d(1:iip1,1:jjp1)=1.
199      ELSE
200       zx_tmp_2d(1:iip1,1:jjp1)=0.
201      ENDIF
202      CALL histwrite(nid_ctesGCM, "fxyhypb", itau_dyn,
203     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]204c
[696]205      zx_tmp_2d(1:iip1,1:jjp1)=dzoomx
206      CALL histwrite(nid_ctesGCM, "dzoomx", itau_dyn,
207     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]208c
[696]209      zx_tmp_2d(1:iip1,1:jjp1)=dzoomy
210      CALL histwrite(nid_ctesGCM, "dzoomy", itau_dyn,
211     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]212c
[696]213      zx_tmp_2d(1:iip1,1:jjp1)=taux
214      CALL histwrite(nid_ctesGCM, "taux", itau_dyn,
215     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]216c
[696]217      zx_tmp_2d(1:iip1,1:jjp1)=tauy
218      CALL histwrite(nid_ctesGCM, "tauy", itau_dyn,
219     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]220c
[696]221      IF(ysinus) THEN
222       zx_tmp_2d(1:iip1,1:jjp1)=1.
223      ELSE
224       zx_tmp_2d(1:iip1,1:jjp1)=0.
225      ENDIF
226      CALL histwrite(nid_ctesGCM, "ysinus", itau_dyn,
227     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]228c
[784]229      zx_tmp_2d(1:iip1,1:jjp1)=ip_ebil_dyn
[696]230      CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_dyn,
231     .               zx_tmp_2d,iip1*jjp1,ndex2d)
[692]232c
233c=================================================================
234c
[696]235      if (ok_sync) then
236        call histsync(nid_ctesGCM)
237      endif
[692]238c
239c=================================================================
Note: See TracBrowser for help on using the repository browser.