Changeset 3648
- Timestamp:
- Mar 16, 2020, 4:36:59 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/wake.F90
r3641 r3648 360 360 crep_sol = 1.0 361 361 362 ! Get wapecut from parameter file 363 wapecut = 1. 364 CALL getin_p('wapecut', wapecut) 365 362 366 ! cc nrlmd Lecture du fichier wake_param.data 363 367 stark=0.33 … … 387 391 ! 1: act(:)=1. 388 392 ! 2: act(:)=f(Wape) 389 wapecut = 1. 390 CALL getin_p('wapecut', wapecut) 391 ! 393 392 394 rzero = 5000. 393 395 CALL getin_p('rzero_wk', rzero)
Note: See TracChangeset
for help on using the changeset viewer.