Ignore:
Timestamp:
Aug 3, 2024, 2:56:58 PM (7 weeks ago)
Author:
abarral
Message:

Put .h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cvltr_noscav.F90

    r5144 r5160  
    143143  END DO
    144144
    145 !!  print *,'it, qfeed(1,it), x(1,1,it) ', it, qfeed(1,it), x(1,1,it)  !jyg
    146 !!  print *,'wght_cvfd ', (j, wght_cvfd(1,j), j=1,5)                     !jyg
     145!!  PRINT *,'it, qfeed(1,it), x(1,1,it) ', it, qfeed(1,it), x(1,1,it)  !jyg
     146!!  PRINT *,'wght_cvfd ', (j, wght_cvfd(1,j), j=1,5)                     !jyg
    147147
    148148  DO k=1,klev
    … …  
    197197        ENDDO
    198198      ENDDO
    199 !!      print *,'it',it,'cvltr_noscav conserv, smfd, smfu, smfa, smfp ',conserv,  &
     199!!      PRINT *,'it',it,'cvltr_noscav conserv, smfd, smfu, smfa, smfp ',conserv,  &
    200200!!               smfd, smfu, smfa, smfp
    201201     
Note: See TracChangeset for help on using the changeset viewer.