Changeset 5337 for LMDZ6


Ignore:
Timestamp:
Nov 20, 2024, 10:04:26 AM (5 weeks ago)
Author:
Laurent Fairhead
Message:

Getting rid of dependance to dynamics

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
37 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90

    r5292 r5337  
    1010USE chem_mod_h
    1111    USE dimphy
    12   USE infotrac
    13   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12  USE infotrac_phy, ONLY: nbtr
    1413USE yomcst_mod_h
    1514IMPLICIT none

  • LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90

    r5292 r5337  
    22
    33  USE dimphy
    4   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    54  USE yomcst_mod_h
    65  USE yoecumf_mod_h

  • LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90

    r5285 r5337  
    22        ,t,q,tsol,ustar,obklen)
    33  USE dimphy
    4   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    54USE yomcst_mod_h
    65  USE yoethf_mod_h

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90

    r5292 r5337  
    88    USE dimphy
    99  USE indice_sol_mod
    10   USE infotrac
    11   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    12 USE paramet_mod_h
     10  USE infotrac_phy, ONLY: nbtr
     11!USE paramet_mod_h
    1312USE yomcst_mod_h
    1413IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90

    r5292 r5337  
    88    USE dimphy
    99  USE indice_sol_mod
    10   USE infotrac
    11   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    12 USE paramet_mod_h
     10  USE infotrac_phy, ONLY: nbtr
     11!USE paramet_mod_h
    1312USE yomcst_mod_h
    1413IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/cltrac_spl.f90

    r5285 r5337  
    44  USE yomcst_mod_h
    55  USE dimphy
    6   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    76IMPLICIT none
    87  !======================================================================

  • LMDZ6/trunk/libf/phylmd/Dust/cm3_to_kg.f90

    r5285 r5337  
    22
    33  USE dimphy
    4   USE infotrac
    54  USE indice_sol_mod
    65
    7   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    86USE yomcst_mod_h
    97IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90

    r5292 r5337  
    3030    USE dimphy
    3131  USE indice_sol_mod
    32   USE infotrac
     32  USE infotrac_phy, ONLY: nbtr
    3333  USE dustemission_mod,  ONLY : dustemission
    3434   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    35   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    36 USE paramet_mod_h
     35!!USE paramet_mod_h
    3736USE yomcst_mod_h
    3837IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc.f90

    r5271 r5337  
    55  USE dimphy
    66  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
    7   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    87IMPLICIT none
    98  !

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc_new.f90

    r5271 r5337  
    77  USE dimphy
    88  USE netcdf, ONLY: nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
    9   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    109IMPLICIT none
    1110  !

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs.f90

    r5271 r5337  
    66   USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, &
    77          nf90_nowrite, nf90_get_var
    8   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    98IMPLICIT none
    109  !

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new_mod.f90

    r5326 r5337  
    1212    IF (status/=nf90_noerr) THEN
    1313      PRINT *, nf90_strerror(status)
    14       CALL abort_gcm('condsurfs_new', 'netcdf error', 1)
     14      CALL abort_physic('condsurfs_new', 'netcdf error', 1)
    1515    ENDIF
    1616  END SUBROUTINE handle_err
    … …  
    2727  USE dimphy
    2828  USE netcdf, ONLY: nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
    29   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3029IMPLICIT none
    3130  !

  • LMDZ6/trunk/libf/phylmd/Dust/deposition.f90

    r5292 r5337  
    88USE chem_mod_h
    99    USE dimphy
    10   USE infotrac
     10  USE infotrac_phy, ONLY: nbtr
    1111  USE indice_sol_mod
    1212
    13   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h
     13!!USE paramet_mod_h
    1514USE yomcst_mod_h
    1615IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.f90

    r5279 r5337  
    171171                          emdustacc,emdustcoa,emdustsco,maskdust)    !Output
    172172  USE dimphy
    173   USE infotrac
     173  USE infotrac_phy, ONLY: nbtr
    174174  USE write_field_phy
    175175  USE mod_grid_phy_lmdz
    … …  
    248248 SUBROUTINE makemask(maskdustloc)
    249249  USE dimphy
    250   USE infotrac
     250  USE infotrac_phy, ONLY: nbtr
    251251  IMPLICIT NONE
    252252  !Input
    … …  
    278278
    279279  USE dimphy
    280   USE infotrac
     280  USE infotrac_phy, ONLY: nbtr
    281281  USE write_field_phy
    282282  USE mod_grid_phy_lmdz
    … …  
    523523  SUBROUTINE initdust(xlat,xlon,pctsrf)
    524524  USE dimphy
    525   USE infotrac
     525  USE infotrac_phy, ONLY: nbtr
    526526  USE write_field_phy
    527527  USE mod_grid_phy_lmdz
    … …  
    11121112  ! emisions over 12 dust bin
    11131113  USE dimphy
    1114   USE infotrac
     1114  USE infotrac_phy, ONLY: nbtr
    11151115
    11161116  IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/finemission.f90

    r5292 r5337  
    1414    USE dimphy
    1515  USE indice_sol_mod
    16   USE infotrac
     16  USE infotrac_phy, ONLY: nbtr
    1717   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    18   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    19 USE paramet_mod_h
     18!!USE paramet_mod_h
    2019USE yomcst_mod_h
    2120IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90

    r5292 r5337  
    88  USE yoecumf_mod_h
    99    USE dimphy
    10   USE infotrac
     10  USE infotrac_phy, ONLY: nbtr
    1111   ! USE indice_sol_mod
    1212
    13   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1413USE yomcst_mod_h
    1514IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90

    r5292 r5337  
    77USE chem_mod_h
    88    USE dimphy
    9   USE infotrac
     9  USE infotrac_phy, ONLY: nbtr
    1010  USE indice_sol_mod
    1111
    12   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    13 USE paramet_mod_h
     12!!USE paramet_mod_h
    1413USE yomcst_mod_h
    1514IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90

    r5292 r5337  
    77USE chem_mod_h
    88    USE dimphy
    9   USE infotrac
     9  USE infotrac_phy, ONLY: nbtr
    1010  USE indice_sol_mod
    1111
    12   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    13 USE paramet_mod_h
     12!!USE paramet_mod_h
    1413USE yomcst_mod_h
    1514IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90

    r5292 r5337  
    33        his_dh)
    44  USE dimphy
    5   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    65  USE yomcst_mod_h
    76  USE yoecumf_mod_h

  • LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.f90

    r5285 r5337  
    22  !
    33  USE dimphy
    4   USE infotrac
    5   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  USE infotrac_phy, ONLY: nbtr
    65USE yomcst_mod_h
    76IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90

    r5292 r5337  
    99  USE mod_phys_lmdz_para
    1010  USE traclmdz_mod
    11   USE infotrac,ONLY : nbtr
     11  USE infotrac_phy, ONLY: nbtr
    1212!!!  USE geometry_mod
    1313  USE iophy
    1414
    15   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1615  USE yomcst_mod_h
    1716  USE yoecumf_mod_h

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90

    r5292 r5337  
    1111  USE mod_phys_lmdz_para
    1212  USE traclmdz_mod
    13   USE infotrac,ONLY : nbtr
     13  USE infotrac_phy, ONLY: nbtr
    1414!  USE comgeomphy
    1515  USE iophy
    16   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1716  USE yomcst_mod_h
    1817  USE yoecumf_mod_h

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxqfi2.f90

    r5271 r5337  
    22  !
    33  USE dimphy
    4   USE infotrac
    5   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  USE infotrac_phy, ONLY: nbtr
    65
    76   ! character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxsource.f90

    r5271 r5337  
    22
    33  USE dimphy
    4   USE infotrac
    5   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  USE infotrac_phy, ONLY: nbtr
    65
    76   ! character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/neutral.f90

    r5271 r5337  
    2828  !
    2929  USE dimphy
    30   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3130  !
    3231    real :: u10_mps(klon),ustar_mps(klon),obklen_m(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/nightingale.f90

    r5285 r5337  
    55  USE dimphy
    66  USE indice_sol_mod
    7   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    87USE yomcst_mod_h
    98IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5310 r5337  
    9393        USE dimphy, ONLY: klon, klev, klevp1
    9494    USE ocean_slab_mod, ONLY: nslay
    95     USE control_mod, ONLY: day_step, iphysiq
    9695    USE phys_output_ctrlout_mod, ONLY: o_phis, o_aire, is_ter, is_lic, is_oce, &
    9796         is_ave, is_sic, o_contfracATM, o_contfracOR, &
    … …  
    382381    USE pbl_surface_mod, ONLY: snow
    383382    USE indice_sol_mod, ONLY: nbsrf
    384     USE infotrac, ONLY: nqtot, nbtr, tracers
     383    USE infotrac_phy, ONLY: nqtot, nbtr, tracers
    385384    USE geometry_mod, ONLY: cell_area
    386385    USE surface_data, ONLY: type_ocean, version_ocean, ok_veget, landice_opt
    … …  
    395394    USE phys_cal_mod, ONLY : mth_len
    396395
    397     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     396    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev
    398397    USE yomcst_mod_h
    399398    USE clesphys_mod_h
    … …  
    418417    REAL, DIMENSION(klon,klev,nqtot) :: qx, d_qx
    419418    REAL,DIMENSION(klon,klev,nbtr),INTENT(IN)    :: d_tr_dyn
    420     REAL, DIMENSION(klon, llm) :: zmasse
     419    REAL, DIMENSION(klon, nbp_lev) :: zmasse
    421420    INTEGER :: flag_aerosol_strat
    422421    INTEGER :: flag_aerosol
    … …  
    425424
    426425    ! Local
    427     INTEGER, PARAMETER :: jjmp1=jjm+1-1/jjm
    428426    INTEGER :: itau_w
    429427    INTEGER :: i, iinit, iinitend=1, iff, iq, itr, nsrf, k, ll, naero
    … …  
    432430    REAL, DIMENSION (klon,klev+1) :: zx_tmp_fi3d1
    433431    CHARACTER (LEN=4)              :: bb2
    434     INTEGER, DIMENSION(iim*jjmp1)  :: ndex2d
    435     INTEGER, DIMENSION(iim*jjmp1*klev) :: ndex3d
     432    INTEGER, DIMENSION(nbp_lon*nbp_lat)  :: ndex2d
     433    INTEGER, DIMENSION(nbp_lon*nbp_lat*klev) :: ndex3d
    436434    REAL :: missing_val
    437435    REAL, PARAMETER :: un_jour=86400.

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5326 r5337  
    435435    IF (status/=nf90_noerr) THEN
    436436      PRINT *, nf90_strerror(status)
    437       CALL abort_gcm('phytrac_spl_mod', 'netcdf error', 1)
     437      CALL abort_physic('phytrac_spl_mod', 'netcdf error', 1)
    438438    ENDIF
    439439  END SUBROUTINE handle_err
    … …  
    806806
    807807      USE yomcst_mod_h
    808       USE mod_grid_phy_lmdz
    809808      USE mod_phys_lmdz_para
    810809      USE IOIPSL
    811810      USE dimphy
    812       USE infotrac
     811      USE infotrac_phy, ONLY: nbtr, nqtot, tracers
    813812      USE indice_sol_mod
    814813      USE write_field_phy
    … …  
    819818      USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
    820819                              mth_cur, phys_cal_update
    821       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    822       USE paramet_mod_h
     820      USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo
     821!!      USE paramet_mod_h
    823822      USE alpale_mod
    824823      USE yoethf_mod_h
    … …  
    11531152!!!JE2014124      PARAMETER (ok_histrac=.true.)
    11541153!!      PARAMETER (ok_histrac=.false.)
    1155       INTEGER ndex2d(iim*(jjm+1)), ndex3d(iim*(jjm+1)*klev)
     1154      INTEGER ndex2d(nbp_lon*nbp_lat), ndex3d(nbp_lon*nbp_lat*klev)
    11561155      INTEGER nhori1, nhori2, nhori3, nhori4, nhori5, nvert
    11571156      INTEGER nid_tra1, nid_tra2, nid_tra3, nid_tra4, nid_tra5
    … …  
    11651164!$OMP THREADPRIVATE(ecrit_tra, ecrit_tra_h, ecrit_tra_m)
    11661165      REAL presnivs(klev) ! pressions approximat. des milieux couches ( en PA)
    1167       REAL zx_tmp_2d(iim,jjm+1), zx_tmp_3d(iim,jjm+1,klev)
     1166      REAL zx_tmp_2d(nbp_lon,nbp_lat), zx_tmp_3d(nbp_lon,nbp_lat,klev)
    11681167      REAL zx_tmp_fi2d(klon), zx_tmp_fi3d(klon, klev)
    11691168      REAL zx_lon_glo(nbp_lon,nbp_lat), zx_lat_glo(nbp_lon,nbp_lat)

  • LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

    r5292 r5337  
    1818USE chem_spla_mod_h
    1919  USE chem_mod_h
    20     USE dimphy
     20  USE dimphy
    2121  USE indice_sol_mod
    22   USE infotrac
     22  USE infotrac_phy, ONLY: nbtr
    2323   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    24   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    25 USE paramet_mod_h
     24!!USE paramet_mod_h
    2625USE yomcst_mod_h
    2726IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/read_dust.f90

    r5285 r5337  
    44  USE mod_phys_lmdz_para
    55  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
    6   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    7 USE paramet_mod_h
     6!!USE paramet_mod_h
    87IMPLICIT NONE
    98  !
    … …  
    5049
    5150  !
    52   !  call correctbid(iim,jjp1,dust_nc)
    5351  call correctbid(nbp_lon,nbp_lat,dust_nc_glo)
    5452  !
    … …  
    6260   ! DO j=2,jjm
    6361  DO j=2,nbp_lat-1
    64       ! DO i = 1, iim
    6562     DO i = 1, nbp_lon
    6663  !--OB=change jjp1+1-j to j here

  • LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90

    r5326 r5337  
    2525  USE mod_phys_lmdz_para
    2626
    27   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    28   USE paramet_mod_h
     27!!  USE paramet_mod_h
    2928  USE condsurfs_new_mod, ONLY: condsurfs_new
    3029IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/read_surface.f90

    r5285 r5337  
    77!       USE comgeomphy
    88       USE dimphy
    9        USE mod_grid_phy_lmdz
    109       USE mod_phys_lmdz_para
    1110       USE iophy
    1211       USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open
    13        USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h
     12       USE mod_grid_phy_lmdz, ONLY: nbp_lon,  nbp_lat, klon_glo
     13
     14!!USE paramet_mod_h
    1515IMPLICIT NONE
    1616
    … …  
    2020       character*10 varname
    2121!
    22        real tmp_dyn(iip1,jjp1)
     22       real tmp_dyn(nbp_lon+1,nbp_lat)
    2323       real tmp_dyn_glo(nbp_lon+1,nbp_lat)
    2424!       real tmp_dyn_glo(nbp_lon,nbp_lat)
    25        REAL tmp_dyn_invers(iip1,jjp1)
     25       REAL tmp_dyn_invers(nbp_lon+1,nbp_lat)
    2626       real tmp_dyn_invers_glo(nbp_lon+1,nbp_lat)
    2727!       real tmp_dyn_invers_glo(nbp_lon,nbp_lat)
    … …  
    3939      character*4 ::  latstr,aux4s
    4040      logical :: outcycle, isinversed
    41       real, dimension(jjp1) :: lats
     41      real, dimension(nbp_lat) :: lats
    4242      real, dimension(nbp_lat) :: lats_glo
    4343      integer, dimension(1) :: startj,endj
    … …  
    116116
    117117       
    118 !JE20140522!          call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    119 
    120 !JE20140526<<
    121 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    122118           if (isinversed) then
    123                         call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
     119                        call local_gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
    124120     & tmp_dyn_invers_glo, tmp_fi_glo)
    125 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    126 !              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    127121           else     
    128                         call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
     122                        call local_gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
    129123     &   tmp_dyn_glo, tmp_fi_glo)
    130 !              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
    131 !              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
    132124           endif
    133125!JE20140526>>
    134 !      call dump2d(iim,jjm-1,tmp_fi(2),'tmp_fi   ')
    135126!
    136127          DO j=1,klon_glo
    … …  
    152143       return
    153144       end subroutine read_surface
     145
     146      SUBROUTINE local_gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
     147      IMPLICIT NONE
     148!=======================================================================
     149!   passage d'un champ de la grille scalaire a la grille physique
     150!=======================================================================
     151
     152!-----------------------------------------------------------------------
     153!   declarations:
     154!   -------------
     155
     156      INTEGER im,jm,ngrid,nfield
     157      REAL pdyn(im,jm,nfield)
     158      REAL pfi(ngrid,nfield)
     159
     160      INTEGER j,ifield,ig
     161
     162!-----------------------------------------------------------------------
     163!   calcul:
     164!   -------
     165
     166      IF(ngrid.NE.2+(jm-2)*(im-1).AND.ngrid.NE.1)                          &
     167     &    STOP 'probleme de dim'
     168!   traitement des poles
     169      CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)
     170      CALL SCOPY(nfield,pdyn(1,jm,1),im*jm,pfi(ngrid,1),ngrid)
     171
     172!   traitement des point normaux
     173      DO ifield=1,nfield
     174         DO j=2,jm-1
     175            ig=2+(j-2)*(im-1)
     176            CALL SCOPY(im-1,pdyn(1,j,ifield),1,pfi(ig,ifield),1)
     177         ENDDO
     178      ENDDO
     179
     180      RETURN
     181      END SUBROUTINE local_gr_dyn_fi
     182

  • LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90

    r5285 r5337  
    55  USE netcdf, ONLY: nf90_get_var, nf90_open, nf90_inq_varid, nf90_nowrite
    66   ! USE write_field_phy
    7   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    8 USE paramet_mod_h
     7!!USE paramet_mod_h
    98IMPLICIT NONE
    109

  • LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90

    r5292 r5337  
    88  USE yoecumf_mod_h
    99    USE dimphy
    10   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1110USE yomcst_mod_h
    1211IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90

    r5292 r5337  
    1111  USE yoecumf_mod_h
    1212     USE dimphy
    13    USE infotrac
    14   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13  USE infotrac_phy, ONLY: nbtr
    1514USE yomcst_mod_h
    1615IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/Dust/tiedqneg.f90

    r5271 r5337  
    22  !
    33  USE dimphy
    4   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    54IMPLICIT none
    65  !======================================================================

  • LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90

    r5292 r5337  
    66USE chem_mod_h
    77    USE dimphy
    8   USE infotrac
     8  USE infotrac_phy, ONLY : nbtr
    99  USE indice_sol_mod
    1010
    11   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    12 USE paramet_mod_h
     11!!USE paramet_mod_h
    1312USE yomcst_mod_h
    1413IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.