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_common/disvert.F90

    r5099 r5101  
    6464
    6565  vert_sampling = merge("strato", "tropo ", ok_strato) ! default value
    66   call getin('vert_sampling', vert_sampling)
     66  CALL getin('vert_sampling', vert_sampling)
    6767  WRITE(lunout,*) TRIM(modname)//' vert_sampling = ' // vert_sampling
    6868  if (llm==39 .and. vert_sampling=="strato") then
Note: See TracChangeset for help on using the changeset viewer.