Changeset 1403 for LMDZ4/trunk/libf/phylmd/ini_wake.F
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/ini_wake.F
r970 r1403 1 ! 2 ! $Id$ 3 ! 1 4 SUBROUTINE INI_WAKE(wape,fip,it_wape_prescr, 2 5 : wape_prescr, fip_prescr, alp_bl_prescr, ale_bl_prescr) … … 23 26 c wape_prescr : valeur prescrite de la WAPE. 24 27 c fip_prescr : valeur prescrite de la FIP. 28 c ale_bl_prescr : valeur prescrite de la Ale de PBL. 29 c alp_bl_prescr : valeur prescrite de la Alp de PBL. 25 30 c 26 31 c Variables internes … … 29 34 c w = WAPE lue 30 35 c f = FIP lue 36 c alebl = Ale de PBL lue 37 c alpbl = Alp de PBL lue 31 38 c 39 include 'iniprint.h' 32 40 cdeclarations 33 41 real ale_bl_prescr 34 42 real alp_bl_prescr 35 43 real it 36 cCR: on rajoute ale et alp de la PBL precrits37 c open (99,file='wake.data',form='formatted')38 c read (99,*) it39 c read (99,*) w40 c read (99,*) f41 c read (99,*) u42 c read (99,*) p43 c close (99)44 44 45 45 ! FH A mettre si besoin dans physiq.def … … 48 48 w=4. 49 49 f=0.1 50 u=0.151 p=4.50 alebl=4. 51 alpbl=0.1 52 52 c 53 print *,' it,w ',it,w 53 cCR: on rajoute ale et alp de la PBL precrits 54 open (99,file='ini_wake_param.data',form='formatted', 55 s status='old',err=902) 56 read (99,*) it 57 read (99,*) w 58 read (99,*) f 59 read (99,*,end=901) alebl 60 read (99,*,end=901) alpbl 61 901 close (99) 62 902 continue 63 c 64 write(lunout,*)' it,wape ',it,wape 54 65 it_wape_prescr = it 55 66 if (w .lt. 0) then … … 61 72 endif 62 73 c 63 print *,' u,p ',u,p64 al p_bl_prescr=u65 al e_bl_prescr=p74 write(lunout,*)' alebl, alpbl ',alebl,alpbl 75 ale_bl_prescr=alebl 76 alp_bl_prescr=alpbl 66 77 print *,'Initialisation de la poche : WAPE, FIP imposees =' 67 78 $ ,wape_prescr, fip_prescr
Note: See TracChangeset
for help on using the changeset viewer.