Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (4 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/phylmd/lmdz_thermcell_old.F90

    r5093 r5101  
    88  USE dimphy
    99  USE write_field_phy
    10   USE lmdz_thermcell_dv2, ONLY : thermcell_dv2
    11   USE lmdz_thermcell_dq, ONLY : thermcell_dq
     10  USE lmdz_thermcell_dv2, ONLY: thermcell_dv2
     11  USE lmdz_thermcell_dq, ONLY: thermcell_dq
    1212  IMPLICIT NONE
    1313
    … …  
    10121012        ! si sature: ql est surestime, d'ou la sous-relax
    10131013        dt = 0.5*rlvcp*qlbef
    1014         ! write(18,*),'DT0=',DT
     1014        ! write(18,*) 'DT0=',DT
    10151015        ! on pourra enchainer 2 ou 3 calculs sans Do while
    10161016        DO WHILE (abs(dt)>ddt0)
Note: See TracChangeset for help on using the changeset viewer.