Changeset 3648 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Mar 16, 2020, 4:36:59 PM (5 years ago)
Author:
jghattas
Message:

Correction d'erreur introduit en commit [3641] pour faire tourner en mode debug.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/wake.F90

    r3641 r3648  
    360360  crep_sol = 1.0
    361361
     362  ! Get wapecut from parameter file
     363  wapecut = 1.
     364  CALL getin_p('wapecut', wapecut)
     365
    362366  ! cc nrlmd Lecture du fichier wake_param.data
    363367  stark=0.33
    … …  
    387391                                            ! 1: act(:)=1.
    388392                                            ! 2: act(:)=f(Wape)
    389   wapecut = 1.
    390   CALL getin_p('wapecut', wapecut)
    391 !
     393
    392394  rzero = 5000.
    393395  CALL getin_p('rzero_wk', rzero)
Note: See TracChangeset for help on using the changeset viewer.