Ignore:
Timestamp:
Oct 30, 2024, 2:17:34 PM (7 weeks ago)
Author:
abarral
Message:

Turn gradsdef.h coefils.h into a module

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/mod_filtreg_p.F90

    r5285 r5297  
    1414
    1515    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    16 USE paramet_mod_h
     16    USE paramet_mod_h
     17    USE coefils_mod_h
    1718IMPLICIT NONE
    1819
    … …  
    5657    !            ifiltre =-2     filtre inverse
    5758    !
    58     !
    59 
    60 
    61     INCLUDE "coefils.h"
    6259    !
    6360    INTEGER,INTENT(IN) :: jjb,jje,ibeg,iend,nlat,nbniv,ifiltre,iter

  • LMDZ6/trunk/libf/dyn3dmem/wrgrads.f90

    r5246 r5297  
    33!
    44subroutine wrgrads(if,nl,field,name,titlevar)
     5  USE gradsdef_mod_h
    56  implicit none
    67
    … …  
    1112  !    name    petit nom
    1213  !    titlevar   Titre
    13 
    14   INCLUDE "gradsdef.h"
    1514
    1615  !   arguments
Note: See TracChangeset for help on using the changeset viewer.