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/phylmdiso/cv3_estatmix.F90

    r5158 r5160  
    8181
    8282
    83 !!  print *,' ->cv3_vertmix, plim1,plim2 ', plim1,plim2   !jyg
     83!!  PRINT *,' ->cv3_vertmix, plim1,plim2 ', plim1,plim2   !jyg
    8484  plim2p(:) = min(plim2(:),plim1(:)-dpmin)
    8585  j1(:)=nd
    … …  
    122122  END DO
    123123
    124 !!  print *,'cv3_vertmix, j1,j2,coef ', j1,j2,coef  !jyg
     124!!  PRINT *,'cv3_vertmix, j1,j2,coef ', j1,j2,coef  !jyg
    125125
    126126  DO j = 1, nd
    … …  
    135135        dpw(i) = dpw(i) + wi(i, j)
    136136
    137 !!  print *,'cv3_vertmix, j, wi(1,j),dpw ', j, wi(1,j),dpw  !jyg
     137!!  PRINT *,'cv3_vertmix, j, wi(1,j),dpw ', j, wi(1,j),dpw  !jyg
    138138
    139139      END IF
    … …  
    167167
    168168
    169 !!  print *,'cv3_vertmix, rdcp ', rdcp  !jyg
     169!!  PRINT *,'cv3_vertmix, rdcp ', rdcp  !jyg
    170170
    171171  DO i = 1, len
    … …  
    216216  END DO
    217217
    218 !!  print *,' cv3_vertmix->'  !jyg
     218!!  PRINT *,' cv3_vertmix->'  !jyg
    219219
    220220
Note: See TracChangeset for help on using the changeset viewer.