Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (2 months ago)
Author:
abarral
Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/getparam.F90

    r5099 r5101  
    4949
    5050    ret_val=def_val
    51     call getin(TARGET,ret_val)
     51    CALL getin(TARGET,ret_val)
    5252
    5353    write(out_eff,*) '######################################'
    … …  
    7272
    7373    ret_val=def_val
    74     call getin(TARGET,ret_val)
     74    CALL getin(TARGET,ret_val)
    7575
    7676    write(out_eff,*) '######################################'
    … …  
    9696
    9797    ret_val=def_val
    98     call getin(TARGET,ret_val)
     98    CALL getin(TARGET,ret_val)
    9999
    100100    write(out_eff,*) '######################################'
Note: See TracChangeset for help on using the changeset viewer.