source: LMDZ4/trunk/libf/phytherm/conf_phys.F90 @ 840

Last change on this file since 840 was 840, checked in by lmdzadmin, 17 years ago

Majuscules OK_journe lecture depuis physiq.def; minuscules dans le code
IM

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 23.8 KB
Line 
1!
2! $Header$
3!
4!
5!
6
7  subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan, ok_hf, &
8 &                     seuil_inversion, &
9 &                     fact_cldcon, facttemps,ok_newmicro,iflag_cldcon, &
10 &                     iflag_ratqs,ratqsbas,ratqshaut, &
11 &                     ok_ade, ok_aie, &
12 &                     bl95_b0, bl95_b1,&
13 &                     iflag_thermals,nsplit_thermals)
14
15   use IOIPSL
16   implicit none
17
18 include "conema3.h"
19 include "fisrtilp.h"
20 include "nuage.h"
21 include "YOMCST.h"
22!IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
23include "clesphys.h"
24include "compbl.h"
25include "control.h"
26!
27! Configuration de la "physique" de LMDZ a l'aide de la fonction
28! GETIN de IOIPSL
29!
30! LF 05/2001
31!
32
33!
34! ocean:      type d'ocean (force, slab, couple)
35! ok_veget:   type de modele de vegetation
36! ok_journe:  sorties journalieres
37! ok_hf:  sorties haute frequence
38! ok_mensuel: sorties mensuelles
39! ok_instan:  sorties instantanees
40! ok_ade, ok_aie: apply or not aerosol direct and indirect effects
41! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc
42!
43
44
45! Sortie:
46  character (len = 6)  :: ocean
47  logical              :: ok_veget, ok_newmicro
48  logical              :: ok_journe, ok_mensuel, ok_instan, ok_hf
49  LOGICAL              :: ok_ade, ok_aie
50  REAL                 :: bl95_b0, bl95_b1
51  real                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut
52  integer              :: iflag_cldcon
53  integer              :: iflag_ratqs
54
55  character (len = 6),SAVE  :: ocean_omp
56  logical,SAVE              :: ok_veget_omp, ok_newmicro_omp
57  logical,SAVE        :: ok_journe_omp, ok_mensuel_omp, ok_instan_omp, ok_hf_omp       
58  LOGICAL,SAVE        :: ok_ade_omp, ok_aie_omp
59  REAL,SAVE           :: bl95_b0_omp, bl95_b1_omp
60  REAL,SAVE           :: freq_ISCCP_omp, ecrit_ISCCP_omp
61  real,SAVE           :: fact_cldcon_omp, facttemps_omp,ratqsbas_omp
62  real,SAVE           :: ratqshaut_omp
63  integer,SAVE        :: iflag_cldcon_omp, ip_ebil_phy_omp
64  integer,SAVE        :: iflag_ratqs_omp
65
66! Local
67  integer              :: numout = 6
68  real                 :: zzz
69
70  real :: seuil_inversion
71  real,save :: seuil_inversion_omp
72
73  integer :: iflag_thermals,nsplit_thermals
74  integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp
75
76  REAL,SAVE :: R_ecc_omp,R_peri_omp,R_incl_omp,solaire_omp,co2_ppm_omp
77  REAL,SAVE :: RCO2_omp,CH4_ppb_omp,RCH4_omp,N2O_ppb_omp,RN2O_omp,CFC11_ppt_omp
78  REAL,SAVE :: RCFC11_omp,CFC12_ppt_omp,RCFC12_omp,epmax_omp
79  LOGICAL,SAVE :: ok_adj_ema_omp
80  INTEGER,SAVE :: iflag_clw_omp
81  REAL,SAVE :: cld_lc_lsc_omp,cld_lc_con_omp,cld_tau_lsc_omp,cld_tau_con_omp
82  REAL,SAVE :: ffallv_lsc_omp, ffallv_con_omp,coef_eva_omp
83  LOGICAL,SAVE :: reevap_ice_omp
84  INTEGER,SAVE :: iflag_pdf_omp
85  REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
86  INTEGER,SAVE :: top_height_omp,overlap_omp
87  REAL,SAVE :: cdmmax_omp,cdhmax_omp,ksta_omp,ksta_ter_omp
88  LOGICAL,SAVE :: ok_kzmin_omp
89  REAL, SAVE :: fmagic_omp
90  INTEGER,SAVE :: iflag_pbl_omp,lev_histhf_omp,lev_histday_omp,lev_histmth_omp
91  CHARACTER*4, SAVE :: type_run_omp
92  LOGICAL,SAVE :: ok_isccp_omp
93  REAL,SAVE :: lonmin_ins_omp, lonmax_ins_omp, latmin_ins_omp, latmax_ins_omp
94  REAL,SAVE :: ecrit_hf_omp, ecrit_day_omp, ecrit_mth_omp, ecrit_reg_omp
95  REAL,SAVE :: ecrit_tra_omp
96  LOGICAL, SAVE :: ok_slab_sicOBS_omp
97  REAL,SAVE :: cvl_corr_omp
98  LOGICAL,SAVE :: ok_lic_melt_omp
99!
100!
101!
102
103!$OMP MASTER
104!Config Key  = OCEAN
105!Config Desc = Type d'ocean
106!Config Def  = force
107!Config Help = Type d'ocean utilise: force, slab,couple
108!
109  ocean_omp = 'force '
110  call getin('OCEAN', ocean_omp)
111!
112!Config Key  = VEGET
113!Config Desc = Type de modele de vegetation
114!Config Def  = .false.
115!Config Help = Type de modele de vegetation utilise
116!
117  ok_veget_omp = .false.
118  call getin('VEGET', ok_veget_omp)
119!
120!Config Key  = OK_journe
121!Config Desc = Pour des sorties journalieres
122!Config Def  = .false.
123!Config Help = Pour creer le fichier histday contenant les sorties
124!              journalieres
125!
126  ok_journe_omp = .false.
127  call getin('OK_journe', ok_journe_omp)
128!
129!Config Key  = ok_hf
130!Config Desc = Pour des sorties haute frequence
131!Config Def  = .false.
132!Config Help = Pour creer le fichier histhf contenant les sorties
133!              haute frequence ( 3h ou 6h)
134!
135  ok_hf_omp = .false.
136  call getin('ok_hf', ok_hf_omp)
137!
138!Config Key  = OK_mensuel
139!Config Desc = Pour des sorties mensuelles
140!Config Def  = .true.
141!Config Help = Pour creer le fichier histmth contenant les sorties
142!              mensuelles
143!
144  ok_mensuel_omp = .true.
145  call getin('OK_mensuel', ok_mensuel_omp)
146!
147!Config Key  = OK_instan
148!Config Desc = Pour des sorties instantanees
149!Config Def  = .false.
150!Config Help = Pour creer le fichier histins contenant les sorties
151!              instantanees
152!
153  ok_instan_omp = .false.
154  call getin('OK_instan', ok_instan_omp)
155!
156!Config Key  = ok_ade
157!Config Desc = Aerosol direct effect or not?
158!Config Def  = .false.
159!Config Help = Used in radlwsw.F
160!
161  ok_ade_omp = .false.
162  call getin('ok_ade', ok_ade_omp)
163
164!
165!Config Key  = ok_aie
166!Config Desc = Aerosol indirect effect or not?
167!Config Def  = .false.
168!Config Help = Used in nuage.F and radlwsw.F
169!
170  ok_aie_omp = .false.
171  call getin('ok_aie', ok_aie_omp)
172
173!
174!Config Key  = bl95_b0
175!Config Desc = Parameter in CDNC-maer link (Boucher&Lohmann 1995)
176!Config Def  = .false.
177!Config Help = Used in nuage.F
178!
179  bl95_b0_omp = 2.
180  call getin('bl95_b0', bl95_b0_omp)
181
182!Config Key  = bl95_b1
183!Config Desc = Parameter in CDNC-maer link (Boucher&Lohmann 1995)
184!Config Def  = .false.
185!Config Help = Used in nuage.F
186!
187  bl95_b1_omp = 0.2
188  call getin('bl95_b1', bl95_b1_omp)
189
190!Config Key  = freq_ISCCP
191!Config Desc = Frequence d'appel du simulateur ISCCP en secondes;
192!              par defaut 10800, i.e. 3 heures
193!Config Def  = 10800.
194!Config Help = Used in ini_histISCCP.h
195!
196  freq_ISCCP_omp = 10800.
197  call getin('freq_ISCCP', freq_ISCCP_omp)
198!
199!Config Key  = ecrit_ISCCP
200!Config Desc = Frequence d'ecriture des resultats du simulateur ISCCP en nombre de jours;
201!              par defaut 1., i.e. 1 jour
202!Config Def  = 1.
203!Config Help = Used in ini_histISCCP.h
204!
205!
206  ecrit_ISCCP_omp = 1.
207  call getin('ecrit_ISCCP', ecrit_ISCCP_omp)
208!
209!Config Key  = ip_ebil_phy
210!Config Desc = Niveau de sortie pour les diags bilan d'energie
211!Config Def  = 0
212!Config Help =
213!               
214  ip_ebil_phy_omp = 0
215  call getin('ip_ebil_phy', ip_ebil_phy_omp)
216!
217!Config Key  = seuil_inversion
218!Config Desc = Seuil ur dTh pour le choix entre les schemas de CL
219!Config Def  = -0.1
220!Config Help =
221!               
222  seuil_inversion_omp = -0.1
223  call getin('seuil_inversion', seuil_inversion_omp)
224
225!!
226!! Constante solaire & Parametres orbitaux & taux gaz effet de serre BEG
227!!
228!Config Key  = R_ecc
229!Config Desc = Excentricite
230!Config Def  = 0.016715
231!Config Help =
232!               
233!valeur AMIP II
234  R_ecc_omp = 0.016715
235  call getin('R_ecc', R_ecc_omp)
236!!
237!Config Key  = R_peri
238!Config Desc = Equinoxe
239!Config Def  =
240!Config Help =
241!               
242!
243!valeur AMIP II
244  R_peri_omp = 102.7
245  call getin('R_peri', R_peri_omp)
246!!
247!Config Key  = R_incl
248!Config Desc = Inclinaison
249!Config Def  =
250!Config Help =
251!               
252!
253!valeur AMIP II
254  R_incl_omp = 23.441
255  call getin('R_incl', R_incl_omp)
256!!
257!Config Key  = solaire
258!Config Desc = Constante solaire en W/m2
259!Config Def  = 1365.
260!Config Help =
261!               
262!
263!valeur AMIP II
264  solaire_omp = 1365.
265  call getin('solaire', solaire_omp)
266!!
267!Config Key  = co2_ppm
268!Config Desc = concentration du gaz carbonique en ppmv
269!Config Def  = 348.
270!Config Help =
271!               
272!
273!valeur AMIP II
274  co2_ppm_omp = 348.
275  call getin('co2_ppm', co2_ppm_omp)
276!!
277!Config Key  = RCO2
278!Config Desc = Concentration du CO2
279!Config Def  = co2_ppm * 1.0e-06  * 44.011/28.97
280!Config Def  = 348. * 1.0e-06  * 44.011/28.97
281!Config Help =
282!               
283! RCO2 = 5.286789092164308E-04
284!ancienne valeur
285  RCO2_omp = co2_ppm_omp * 1.0e-06  * 44.011/28.97 ! pour co2_ppm=348.
286
287!!  call getin('RCO2', RCO2)
288!!
289!Config Key  = RCH4
290!Config Desc = Concentration du CH4
291!Config Def  = 1.65E-06* 16.043/28.97
292!Config Help =
293!               
294!
295!valeur AMIP II
296!OK  RCH4 = 1.65E-06* 16.043/28.97
297! RCH4 = 9.137366240938903E-07
298!
299!ancienne valeur
300! RCH4 = 1.72E-06* 16.043/28.97
301!OK call getin('RCH4', RCH4)
302  zzz = 1650.
303  call getin('CH4_ppb', zzz)
304  CH4_ppb_omp = zzz
305  RCH4_omp = CH4_ppb_omp * 1.0E-09 * 16.043/28.97
306!!
307!Config Key  = RN2O
308!Config Desc = Concentration du N2O
309!Config Def  = 306.E-09* 44.013/28.97
310!Config Help =
311!               
312!
313!valeur AMIP II
314!OK  RN2O = 306.E-09* 44.013/28.97
315! RN2O = 4.648939592682085E-07
316!
317!ancienne valeur
318! RN2O = 310.E-09* 44.013/28.97
319!OK  call getin('RN2O', RN2O)
320  zzz=306.
321  call getin('N2O_ppb', zzz)
322  N2O_ppb_omp = zzz
323  RN2O_omp = N2O_ppb_omp * 1.0E-09 * 44.013/28.97
324!!
325!Config Key  = RCFC11
326!Config Desc = Concentration du CFC11
327!Config Def  = 280.E-12* 137.3686/28.97
328!Config Help =
329!               
330!
331!OK RCFC11 = 280.E-12* 137.3686/28.97
332  zzz = 280.
333  call getin('CFC11_ppt',zzz)
334  CFC11_ppt_omp = zzz
335  RCFC11_omp=CFC11_ppt_omp* 1.0E-12 * 137.3686/28.97
336! RCFC11 = 1.327690990680013E-09
337!OK call getin('RCFC11', RCFC11)
338!!
339!Config Key  = RCFC12
340!Config Desc = Concentration du CFC12
341!Config Def  = 484.E-12* 120.9140/28.97
342!Config Help =
343!               
344!
345!OK RCFC12 = 484.E-12* 120.9140/28.97
346  zzz = 484.
347  call getin('CFC12_ppt',zzz)
348  CFC12_ppt_omp = zzz
349  RCFC12_omp = CFC12_ppt_omp * 1.0E-12 * 120.9140/28.97
350! RCFC12 = 2.020102726958923E-09
351!OK call getin('RCFC12', RCFC12)
352!!
353!! Constante solaire & Parametres orbitaux & taux gaz effet de serre END
354!!
355!! KE
356!
357
358!Config key  = cvl_corr
359!Config Desc = Facteur multiplication des precip convectives dans KE
360!Config Def  = 1.00
361!Config Help = 1.02 pour un moderne ou un pre-ind. A ajuster pour un glaciaire
362  cvl_corr_omp = 1.00
363  CALL getin('cvl_corr', cvl_corr_omp)
364
365
366!Config Key  = epmax
367!Config Desc = Efficacite precip
368!Config Def  = 0.993
369!Config Help =
370!
371  epmax_omp = .993
372  call getin('epmax', epmax_omp)
373!
374!Config Key  = ok_adj_ema
375!Config Desc = 
376!Config Def  = false
377!Config Help =
378!
379  ok_adj_ema_omp = .false.
380  call getin('ok_adj_ema',ok_adj_ema_omp)
381!
382!Config Key  = iflag_clw
383!Config Desc = 
384!Config Def  = 0
385!Config Help =
386!
387  iflag_clw_omp = 0
388  call getin('iflag_clw',iflag_clw_omp)
389!
390!Config Key  = cld_lc_lsc
391!Config Desc = 
392!Config Def  = 2.6e-4
393!Config Help =
394!
395  cld_lc_lsc_omp = 2.6e-4
396  call getin('cld_lc_lsc',cld_lc_lsc_omp)
397!
398!Config Key  = cld_lc_con
399!Config Desc = 
400!Config Def  = 2.6e-4
401!Config Help =
402!
403  cld_lc_con_omp = 2.6e-4
404  call getin('cld_lc_con',cld_lc_con_omp)
405!
406!Config Key  = cld_tau_lsc
407!Config Desc = 
408!Config Def  = 3600.
409!Config Help =
410!
411  cld_tau_lsc_omp = 3600.
412  call getin('cld_tau_lsc',cld_tau_lsc_omp)
413!
414!Config Key  = cld_tau_con
415!Config Desc = 
416!Config Def  = 3600.
417!Config Help =
418!
419  cld_tau_con_omp = 3600.
420  call getin('cld_tau_con',cld_tau_con_omp)
421!
422!Config Key  = ffallv_lsc
423!Config Desc = 
424!Config Def  = 1.
425!Config Help =
426!
427  ffallv_lsc_omp = 1.
428  call getin('ffallv_lsc',ffallv_lsc_omp)
429!
430!Config Key  = ffallv_con
431!Config Desc = 
432!Config Def  = 1.
433!Config Help =
434!
435  ffallv_con_omp = 1.
436  call getin('ffallv_con',ffallv_con_omp)
437!
438!Config Key  = coef_eva
439!Config Desc = 
440!Config Def  = 2.e-5
441!Config Help =
442!
443  coef_eva_omp = 2.e-5
444  call getin('coef_eva',coef_eva_omp)
445!
446!Config Key  = reevap_ice
447!Config Desc = 
448!Config Def  = .false.
449!Config Help =
450!
451  reevap_ice_omp = .false.
452  call getin('reevap_ice',reevap_ice_omp)
453
454!Config Key  = iflag_ratqs
455!Config Desc =
456!Config Def  = 1
457!Config Help =
458!
459  iflag_ratqs_omp = 1
460  call getin('iflag_ratqs',iflag_ratqs_omp)
461
462!
463!Config Key  = iflag_cldcon
464!Config Desc = 
465!Config Def  = 1
466!Config Help =
467!
468  iflag_cldcon_omp = 1
469  call getin('iflag_cldcon',iflag_cldcon_omp)
470
471!
472!Config Key  = iflag_pdf
473!Config Desc = 
474!Config Def  = 0
475!Config Help =
476!
477  iflag_pdf_omp = 0
478  call getin('iflag_pdf',iflag_pdf_omp)
479!
480!Config Key  = fact_cldcon
481!Config Desc = 
482!Config Def  = 0.375
483!Config Help =
484!
485  fact_cldcon_omp = 0.375
486  call getin('fact_cldcon',fact_cldcon_omp)
487
488!
489!Config Key  = facttemps
490!Config Desc = 
491!Config Def  = 1.e-4
492!Config Help =
493!
494  facttemps_omp = 1.e-4
495  call getin('facttemps',facttemps_omp)
496
497!
498!Config Key  = ok_newmicro
499!Config Desc = 
500!Config Def  = .true.
501!Config Help =
502!
503  ok_newmicro_omp = .true.
504  call getin('ok_newmicro',ok_newmicro_omp)
505!
506!Config Key  = ratqsbas
507!Config Desc = 
508!Config Def  = 0.01
509!Config Help =
510!
511  ratqsbas_omp = 0.01
512  call getin('ratqsbas',ratqsbas_omp)
513!
514!Config Key  = ratqshaut
515!Config Desc = 
516!Config Def  = 0.3
517!Config Help =
518!
519  ratqshaut_omp = 0.3
520  call getin('ratqshaut',ratqshaut_omp)
521
522!
523!Config Key  = rad_froid
524!Config Desc = 
525!Config Def  = 35.0
526!Config Help =
527!
528  rad_froid_omp = 35.0
529  call getin('rad_froid',rad_froid_omp)
530
531!
532!Config Key  = rad_chau1
533!Config Desc = 
534!Config Def  = 13.0
535!Config Help =
536!
537  rad_chau1_omp = 13.0
538  call getin('rad_chau1',rad_chau1_omp)
539
540!
541!Config Key  = rad_chau2
542!Config Desc = 
543!Config Def  = 9.0
544!Config Help =
545!
546  rad_chau2_omp = 9.0
547  call getin('rad_chau2',rad_chau2_omp)
548
549!
550!Config Key  = top_height
551!Config Desc =
552!Config Def  = 3
553!Config Help =
554!
555  top_height_omp = 3
556  call getin('top_height',top_height_omp)
557
558!
559!Config Key  = overlap
560!Config Desc =
561!Config Def  = 3
562!Config Help =
563!
564  overlap_omp = 3
565  call getin('overlap',overlap_omp)
566
567
568!
569!
570!Config Key  = cdmmax
571!Config Desc =
572!Config Def  = 1.3E-3
573!Config Help =
574!
575  cdmmax_omp = 1.3E-3
576  call getin('cdmmax',cdmmax_omp)
577
578!
579!Config Key  = cdhmax
580!Config Desc =
581!Config Def  = 1.1E-3
582!Config Help =
583!
584  cdhmax_omp = 1.1E-3
585  call getin('cdhmax',cdhmax_omp)
586
587!261103
588!
589!Config Key  = ksta
590!Config Desc =
591!Config Def  = 1.0e-10
592!Config Help =
593!
594  ksta_omp = 1.0e-10
595  call getin('ksta',ksta_omp)
596
597!
598!Config Key  = ksta_ter
599!Config Desc =
600!Config Def  = 1.0e-10
601!Config Help =
602!
603  ksta_ter_omp = 1.0e-10
604  call getin('ksta_ter',ksta_ter_omp)
605
606!
607!Config Key  = ok_kzmin
608!Config Desc =
609!Config Def  = .true.
610!Config Help =
611!
612  ok_kzmin_omp = .true.
613  call getin('ok_kzmin',ok_kzmin_omp)
614
615!
616!Config Key  = fmagic
617!Config Desc =
618!Config Def  = 1.
619!Config Help = Used in albedo.F
620!
621  fmagic_omp = 1.
622  call getin('fmagic',fmagic_omp)
623
624!Config Key = ok_lic_melt
625!Config Desc = Prise en compte de la fonte de la calotte dans le bilan d'eau
626!Config Def  = .false.
627!Config Help = mettre a .false. pour assurer la conservation en eau
628  ok_lic_melt_omp = .false.
629  call getin('ok_lic_melt', ok_lic_melt_omp)
630
631!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
632! PARAMETER FOR THE PLANETARY BOUNDARY LAYER
633!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
634
635!Config Key  = iflag_pbl
636!Config Desc =
637!Config Def  = 1
638!Config Help =
639!
640  iflag_pbl_omp = 1
641  call getin('iflag_pbl',iflag_pbl_omp)
642!
643!Config Key  = iflag_thermals
644!Config Desc =
645!Config Def  = 0
646!Config Help =
647!
648  iflag_thermals_omp = 0
649  call getin('iflag_thermals',iflag_thermals_omp)
650!
651!
652!Config Key  = nsplit_thermals
653!Config Desc =
654!Config Def  = 1
655!Config Help =
656!
657  nsplit_thermals_omp = 1
658  call getin('nsplit_thermals',nsplit_thermals_omp)
659
660
661
662!
663!Config Key  = lev_histhf
664!Config Desc =
665!Config Def  = 1
666!Config Help =
667!
668  lev_histhf_omp = 1
669  call getin('lev_histhf',lev_histhf_omp)
670
671!
672!Config Key  = lev_histday
673!Config Desc =
674!Config Def  = 1
675!Config Help =
676!
677  lev_histday_omp = 1
678  call getin('lev_histday',lev_histday_omp)
679
680!
681!Config Key  = lev_histmth
682!Config Desc =
683!Config Def  = 2
684!Config Help =
685!
686  lev_histmth_omp = 2
687  call getin('lev_histmth',lev_histmth_omp)
688
689  !
690!Config Key  = type_run
691!Config Desc =
692!Config Def  = 'AMIP'/'CFMIP'  ou 'CLIM'/'ENSP'
693!Config Help =
694!
695  type_run_omp = 'AMIP'
696  call getin('type_run',type_run_omp)
697
698!
699!Config Key  = ok_isccp
700!Config Desc =
701!Config Def  = .true.
702!Config Help =
703!
704! ok_isccp = .true.
705  ok_isccp_omp = .false.
706  call getin('ok_isccp',ok_isccp_omp)
707
708!
709! coordonnees (lonmin_ins, lonmax_ins, latmin_ins, latmax_ins) pour la zone
710! avec sorties instantannees tous les pas de temps de la physique => "histbilKP_ins.nc"
711!
712!Config Key  = lonmin_ins
713!Config Desc = 100. 
714!Config Def  = longitude minimale sorties "bilKP_ins"
715!Config Help =
716!
717   lonmin_ins_omp = 100.
718   call getin('lonmin_ins',lonmin_ins_omp)
719!
720!Config Key  = lonmax_ins
721!Config Desc = 130.
722!Config Def  = longitude maximale sorties "bilKP_ins"
723!Config Help =
724!
725   lonmax_ins = 130.
726   call getin('lonmax_ins',lonmax_ins_omp)
727!
728!Config Key  = latmin_ins
729!Config Desc = -20. 
730!Config Def  = latitude minimale sorties "bilKP_ins"
731!Config Help =
732!
733   latmin_ins_omp = -20.
734   call getin('latmin_ins',latmin_ins_omp)
735!
736!Config Key  = latmax_ins
737!Config Desc = 20.
738!Config Def  = latitude maximale sorties "bilKP_ins"
739!Config Help =
740!
741   latmax_ins_omp = 20.
742   call getin('latmax_ins',latmax_ins_omp)
743!
744!Config Key  = ecrit_hf
745!Config Desc =
746!Config Def  = 1./8. !toutes les 3h
747!Config Help =
748!
749  ecrit_hf_omp = 1./8.
750  call getin('ecrit_hf',ecrit_hf_omp)
751!
752!Config Key  = ecrit_day
753!Config Desc =
754!Config Def  = 1.0 !tous les jours
755!Config Help = nombre de jours pour ecriture fichier histday.nc
756!
757  ecrit_day_omp = 1.0
758  call getin('ecrit_day',ecrit_day_omp)
759!
760!Config Key  = ecrit_mth
761!Config Desc =
762!Config Def  = 30. !tous les 30jours (1 fois par mois)
763!Config Help =
764!
765  ecrit_mth_omp = 30.
766  call getin('ecrit_mth',ecrit_mth_omp)
767!
768!Config Key  = ecrit_tra
769!Config Desc =
770!Config Def  = 30. !tous les 30jours (1 fois par mois)
771!Config Help =
772!
773  ecrit_tra_omp = 30.
774  call getin('ecrit_tra',ecrit_tra_omp)
775!
776!Config Key  = ecrit_reg
777!Config Desc =
778!Config Def  = 0.25  !4 fois par jour
779!Config Help =
780!
781  ecrit_reg_omp = 0.25   !4 fois par jour
782  call getin('ecrit_reg',ecrit_reg_omp)
783!
784!
785!
786!Config Key  = ok_slab_sicOBS
787!Config Desc =
788!Config Def  = .true.
789!Config Help = Pour faire tourner le slab avec fraction
790!              de glace de mer Observee
791!
792  ok_slab_sicOBS_omp = .true.
793  call getin('ok_slab_sicOBS', ok_slab_sicOBS_omp)
794
795
796!$OMP END MASTER
797!$OMP BARRIER
798
799    R_ecc = R_ecc_omp
800    R_peri = R_peri_omp
801    R_incl = R_incl_omp
802    solaire = solaire_omp
803    co2_ppm = co2_ppm_omp
804    RCO2 = RCO2_omp
805    CH4_ppb = CH4_ppb_omp
806    RCH4 = RCH4_omp
807    N2O_ppb = N2O_ppb_omp
808    RN2O = RN2O_omp
809    CFC11_ppt = CFC11_ppt_omp
810    RCFC11 = RCFC11_omp
811    CFC12_ppt = CFC12_ppt_omp
812    RCFC12 = RCFC12_omp
813    epmax = epmax_omp
814    ok_adj_ema = ok_adj_ema_omp
815    iflag_clw = iflag_clw_omp
816    cld_lc_lsc = cld_lc_lsc_omp
817    cld_lc_con = cld_lc_con_omp
818    cld_tau_lsc = cld_tau_lsc_omp
819    cld_tau_con = cld_tau_con_omp
820    ffallv_lsc = ffallv_lsc_omp
821    ffallv_con = ffallv_con_omp
822    coef_eva = coef_eva_omp
823    reevap_ice = reevap_ice_omp
824    iflag_pdf = iflag_pdf_omp
825    rad_froid = rad_froid_omp
826    rad_chau1 = rad_chau1_omp
827    rad_chau2 = rad_chau2_omp
828    top_height = top_height_omp
829    overlap = overlap_omp
830    cdmmax = cdmmax_omp
831    cdhmax = cdhmax_omp
832    ksta = ksta_omp
833    ksta_ter = ksta_ter_omp
834    ok_kzmin = ok_kzmin_omp
835    fmagic = fmagic_omp
836    iflag_pbl = iflag_pbl_omp
837    lev_histhf = lev_histhf_omp
838    lev_histday = lev_histday_omp
839    lev_histmth = lev_histmth_omp
840
841    ocean = ocean_omp
842    ok_veget = ok_veget_omp
843    ok_newmicro = ok_newmicro_omp
844    ok_journe = ok_journe_omp
845    ok_hf = ok_hf_omp
846    ok_mensuel = ok_mensuel_omp
847    ok_instan = ok_instan_omp
848    freq_ISCCP = freq_ISCCP_omp
849    ecrit_ISCCP = ecrit_ISCCP_omp
850    ok_ade = ok_ade_omp
851    ok_aie = ok_aie_omp
852    bl95_b0 = bl95_b0_omp
853    bl95_b1 = bl95_b1_omp
854    fact_cldcon = fact_cldcon_omp
855    facttemps = facttemps_omp
856    ratqsbas = ratqsbas_omp
857    ratqshaut = ratqshaut_omp
858    iflag_cldcon = iflag_cldcon_omp
859    iflag_ratqs = iflag_ratqs_omp
860    ip_ebil_phy = ip_ebil_phy_omp
861    iflag_thermals = iflag_thermals_omp
862    nsplit_thermals = nsplit_thermals_omp
863    type_run = type_run_omp
864    ok_isccp = ok_isccp_omp
865    seuil_inversion=seuil_inversion_omp
866    lonmin_ins = lonmin_ins_omp
867    lonmax_ins = lonmax_ins_omp
868    latmin_ins = latmin_ins_omp
869    latmax_ins = latmax_ins_omp
870    ecrit_hf   = ecrit_hf_omp
871    ecrit_day = ecrit_day_omp
872    ecrit_mth = ecrit_mth_omp
873    ecrit_tra = ecrit_tra_omp
874    ecrit_reg = ecrit_reg_omp
875    ok_slab_sicOBS = ok_slab_sicOBS_omp
876    cvl_corr = cvl_corr_omp
877    ok_lic_melt = ok_lic_melt_omp
878
879!$OMP MASTER
880
881  write(numout,*)' ##############################################'
882  write(numout,*)' Configuration des parametres de la physique: '
883  write(numout,*)' Config ocean = ', ocean
884  write(numout,*)' Config veget = ', ok_veget
885  write(numout,*)' Sortie journaliere = ', ok_journe
886  write(numout,*)' Sortie haute frequence = ', ok_hf
887  write(numout,*)' Sortie mensuelle = ', ok_mensuel
888  write(numout,*)' Sortie instantanee = ', ok_instan
889  write(numout,*)' Frequence appel simulateur ISCCP, freq_ISCCP =', freq_ISCCP
890  write(numout,*)' Frequence appel simulateur ISCCP, ecrit_ISCCP =', ecrit_ISCCP
891  write(numout,*)' Sortie bilan d''energie, ip_ebil_phy =', ip_ebil_phy
892  write(numout,*)' Excentricite = ',R_ecc
893  write(numout,*)' Equinoxe = ',R_peri
894  write(numout,*)' Inclinaison =',R_incl
895  write(numout,*)' Constante solaire =',solaire
896  write(numout,*)' co2_ppm =',co2_ppm
897  write(numout,*)' RCO2 = ',RCO2
898  write(numout,*)' CH4_ppb =',CH4_ppb,' RCH4 = ',RCH4
899  write(numout,*)' N2O_ppb =',N2O_ppb,' RN2O =  ',RN2O
900  write(numout,*)' CFC11_ppt=',CFC11_ppt,' RCFC11 =  ',RCFC11
901  write(numout,*)' CFC12_ppt=',CFC12_ppt,' RCFC12 =  ',RCFC12
902  write(numout,*)' cvl_corr=', cvl_corr
903  write(numout,*)'ok_lic_melt=', ok_lic_melt
904  write(numout,*)' epmax = ', epmax
905  write(numout,*)' ok_adj_ema = ', ok_adj_ema
906  write(numout,*)' iflag_clw = ', iflag_clw
907  write(numout,*)' cld_lc_lsc = ', cld_lc_lsc
908  write(numout,*)' cld_lc_con = ', cld_lc_con
909  write(numout,*)' cld_tau_lsc = ', cld_tau_lsc
910  write(numout,*)' cld_tau_con = ', cld_tau_con
911  write(numout,*)' ffallv_lsc = ', ffallv_lsc
912  write(numout,*)' ffallv_con = ', ffallv_con
913  write(numout,*)' coef_eva = ', coef_eva
914  write(numout,*)' reevap_ice = ', reevap_ice
915  write(numout,*)' iflag_pdf = ', iflag_pdf
916  write(numout,*)' iflag_cldcon = ', iflag_cldcon
917  write(numout,*)' iflag_ratqs = ', iflag_ratqs
918  write(numout,*)' seuil_inversion = ', seuil_inversion
919  write(numout,*)' fact_cldcon = ', fact_cldcon
920  write(numout,*)' facttemps = ', facttemps
921  write(numout,*)' ok_newmicro = ',ok_newmicro
922  write(numout,*)' ratqsbas = ',ratqsbas
923  write(numout,*)' ratqshaut = ',ratqshaut
924  write(numout,*)' top_height = ',top_height
925  write(numout,*)' overlap = ',overlap
926  write(numout,*)' cdmmax = ',cdmmax
927  write(numout,*)' cdhmax = ',cdhmax
928  write(numout,*)' ksta = ',ksta
929  write(numout,*)' ksta_ter = ',ksta_ter
930  write(numout,*)' ok_kzmin = ',ok_kzmin
931  write(numout,*)' fmagic = ',fmagic
932  write(numout,*)' ok_ade = ',ok_ade
933  write(numout,*)' ok_aie = ',ok_aie
934  write(numout,*)' bl95_b0 = ',bl95_b0
935  write(numout,*)' bl95_b1 = ',bl95_b1
936  write(numout,*)' lev_histhf = ',lev_histhf
937  write(numout,*)' lev_histday = ',lev_histday
938  write(numout,*)' lev_histmth = ',lev_histmth
939  write(numout,*)' iflag_pbl = ', iflag_pbl
940  write(numout,*)' iflag_thermals = ', iflag_thermals
941  write(numout,*)' type_run = ',type_run
942  write(numout,*)' ok_isccp = ',ok_isccp
943  write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',&
944 & lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
945  write(numout,*)' ecrit_ hf, day, mth, reg, tra, ISCCP',&
946 & ecrit_hf, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra, ecrit_ISCCP
947
948!$OMP END MASTER
949
950  return
951 
952  end subroutine conf_phys
953
954!
955!#################################################################
956!
957
958   subroutine conf_interface(tau_calv)
959
960   use IOIPSL
961   implicit none
962
963! Configuration de l'interace atm/surf
964!
965! tau_calv:    temps de relaxation pour la fonte des glaciers
966
967  REAL          :: tau_calv
968  REAL,SAVE     :: tau_calv_omp
969
970! Local
971  integer              :: numout = 6
972!
973!Config Key  = tau_calv
974!Config Desc = temps de relaxation pour fonte des glaciers en jours
975!Config Def  = 1 an
976!Config Help =
977!
978  tau_calv_omp = 360.*10.
979!$OMP MASTER
980  call getin('tau_calv',tau_calv_omp)
981!$OMP END MASTER
982!$OMP BARRIER
983
984  tau_calv=tau_calv_omp
985 
986!$OMP MASTER
987  write(numout,*)' ##############################################'
988  WRITE(numout,*)' Configuration de l''interface atm/surfaces  : '
989  WRITE(numout,*)' tau_calv = ',tau_calv
990!$OMP END MASTER
991
992  return
993
994  end subroutine conf_interface
Note: See TracBrowser for help on using the repository browser.