Ignore:
Timestamp:
Oct 28, 2024, 1:11:48 PM (6 hours ago)
Author:
abarral
Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/advn.F90

    r5281 r5282  
    1515  !
    1616  !   --------------------------------------------------------------------
     17  USE iniprint_mod_h
    1718  USE comgeom_mod_h
    1819  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2324
    2425
    25   include "iniprint.h"
    2626
    2727  !
    … …  
    147147  !
    148148  !   --------------------------------------------------------------------
     149  USE iniprint_mod_h
    149150  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    150 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     151  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    151152          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    152153IMPLICIT NONE
    153154  !
    154 
    155 
    156   INCLUDE "iniprint.h"
    157155  !
    158156  !
    … …  
    268266  !   --------------------------------------------------------------------
    269267  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    270 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     268  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    271269          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     270  USE iniprint_mod_h
    272271IMPLICIT NONE
    273   !
    274 
    275 
    276   INCLUDE "iniprint.h"
     272
    277273  !
    278274  !
    … …  
    367363  !   --------------------------------------------------------------------
    368364  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    369 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     365  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    370366          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     367  USE iniprint_mod_h
    371368IMPLICIT NONE
    372   !
    373 
    374 
    375   INCLUDE "iniprint.h"
    376369  !
    377370  !
    … …  
    492485  !   --------------------------------------------------------------------
    493486  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    494 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     487  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    495488          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     489  USE iniprint_mod_h
    496490IMPLICIT NONE
    497491  !
    498492
    499493
    500   include "iniprint.h"
    501494  !
    502495  !
    … …  
    759752  !
    760753  !   --------------------------------------------------------------------
     754  USE iniprint_mod_h
    761755  USE comgeom_mod_h
    762756  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    767761
    768762
    769   INCLUDE "iniprint.h"
    770763  !
    771764  !
    … …  
    893886  !
    894887  !   --------------------------------------------------------------------
     888  USE iniprint_mod_h
    895889  USE comgeom_mod_h
    896890  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    901895
    902896
    903   INCLUDE "iniprint.h"
    904897  !
    905898  !
Note: See TracChangeset for help on using the changeset viewer.