Changeset 119 for trunk/libf/dyn3dpar
- Timestamp:
- May 17, 2011, 10:56:57 AM (14 years ago)
- Location:
- trunk/libf/dyn3dpar
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/libf/dyn3dpar/conf_gcm.F
r108 r119 388 388 iphysiq = 5 389 389 CALL getin('iphysiq', iphysiq) 390 391 !Config Key = iflag_trac 392 !Config Desc = traceurs presents ou non 393 !Config Def = 1 394 !Config Help = Permet de faire tourner le modele sans traceurs 395 !Config 396 iflag_trac = 1 397 CALL getin('iflag_trac',iflag_trac) 390 398 391 399 !Config Key = ip_ebil_dyn … … 679 687 write(lunout,*)' iflag_phys = ', iflag_phys 680 688 write(lunout,*)' iphysiq = ', iphysiq 689 write(lunout,*)' iflag_trac = ', iflag_trac 681 690 write(lunout,*)' clonn = ', clonn 682 691 write(lunout,*)' clatt = ', clatt … … 947 956 write(lunout,*)' iflag_phys = ', iflag_phys 948 957 write(lunout,*)' iphysiq = ', iphysiq 958 write(lunout,*)' iflag_trac = ', iflag_trac 949 959 write(lunout,*)' clon = ', clon 950 960 write(lunout,*)' clat = ', clat -
trunk/libf/dyn3dpar/logic.h
r101 r119 15 15 & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus & 16 16 & ,read_start,ok_guide,ok_strato,ok_gradsfile & 17 & ,ok_limit,ok_etat0 ,iflag_trac17 & ,ok_limit,ok_etat0 18 18 19 INTEGER iflag_phys 19 INTEGER iflag_phys,iflag_trac 20 20 !$OMP THREADPRIVATE(/logic/) 21 21 !-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.