Ignore:
Timestamp:
Jul 24, 2024, 4:39:59 PM (4 months ago)
Author:
abarral
Message:

Replace iniprint.h by lmdz_iniprint.f90
(lint) along the way

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90

    r5117 r5118  
    66
    77  USE IOIPSL
     8  USE lmdz_iniprint, ONLY: lunout, prt_level
    89  !
    910  ! Auteur :  F. Hourdin
    … …  
    1819  include "comgeom.h"
    1920  include "tracstoke.h"
    20   include "iniprint.h"
    2121
    2222  REAL :: time_step, t_wrt, t_ops
    … …  
    157157  ENDIF ! if iadvtr.EQ.istdyn
    158158
    159 
    160159END SUBROUTINE fluxstokenc
Note: See TracChangeset for help on using the changeset viewer.