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

Put .h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/satellite_out_spla.F90

    r5133 r5160  
    3131!  DO i=1,klon
    3232!    IF ( masque_polder(i) .EQ. 1 ) THEN
    33 !        print *,'polder output point, lon:', rlon(i),', lat: ',rlat(i)
     33!        PRINT *,'polder output point, lon:', rlon(i),', lat: ',rlat(i)
    3434!    ENDIF
    3535!  ENDDO
    … …  
    4444!  DO i=1,klon
    4545!    IF ( masque_aqua(i) .EQ. 1 ) THEN
    46 !        print *,'aqua output point, lon:', rlon(i),', lat: ',rlat(i)
     46!        PRINT *,'aqua output point, lon:', rlon(i),', lat: ',rlat(i)
    4747!    ENDIF
    4848!  ENDDO
    … …  
    5656!  DO i=1,klon
    5757!    IF ( masque_terra(i) .EQ. 1 ) THEN
    58 !        print *,'terra output point, lon:', rlon(i),', lat: ',rlat(i)
     58!        PRINT *,'terra output point, lon:', rlon(i),', lat: ',rlat(i)
    5959!    ENDIF
    6060!  ENDDO
Note: See TracChangeset for help on using the changeset viewer.