Ignore:
Timestamp:
Feb 13, 2025, 5:12:07 PM (6 hours ago)
Author:
emillour
Message:

Dynamico-Mars:
Cleanup: add some "only" clauses to all the "use" to help
identifying connections between Dynamico, the interface and the physics.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ICOSA_LMDZ/src/distrib_icosa_lmdz.f90

    r2000 r3626  
    2626
    2727  SUBROUTINE init_distrib_icosa_lmdz
     28! from LMDZ
    2829  USE mod_phys_lmdz_omp_data, ONLY: klon_omp_begin, klon_omp_end
    29   USE domain_mod
    30   USE dimensions
     30! from dynamico
     31  USE domain_mod, ONLY: domain, ndomain
     32  USE dimensions, ONLY: ii_begin, ii_end, jj_begin, jj_end, iim
     33  USE dimensions, ONLY: swap_dimensions
    3134  IMPLICIT NONE
    3235    INTEGER :: pos,pos_tmp,nindex
    … …  
    8285                 
    8386  SUBROUTINE transfer_icosa_to_lmdz1d(f_field_icosa, field_lmdz)
    84   USE field_mod
     87! from dynamico
     88  USE prec, ONLY: rstd
     89  USE field_mod, ONLY: t_field, ASSIGNMENT(=)
    8590  IMPLICIT NONE
    8691    TYPE(t_field),POINTER :: f_field_icosa(:)
    … …  
    105110 
    106111  SUBROUTINE transfer_icosa_to_lmdz2d(f_field_icosa, field_lmdz)
    107   USE field_mod
     112! from dynamico
     113  USE prec, ONLY: rstd
     114  USE field_mod, ONLY: t_field, ASSIGNMENT(=)
    108115  IMPLICIT NONE
    109116    TYPE(t_field),POINTER :: f_field_icosa(:)
    … …  
    134141   
    135142  SUBROUTINE transfer_icosa_to_lmdz3d(f_field_icosa, field_lmdz)
    136   USE field_mod
     143! from dynamico
     144  USE prec, ONLY: rstd
     145  USE field_mod, ONLY: t_field, ASSIGNMENT(=)
    137146  IMPLICIT NONE
    138147    TYPE(t_field),POINTER :: f_field_icosa(:)
    … …  
    162171     
    163172  SUBROUTINE transfer_lmdz1d_to_icosa(field_lmdz,f_field_icosa)
    164   USE field_mod
     173! from dynamico
     174  USE prec, ONLY: rstd
     175  USE field_mod, ONLY: t_field, ASSIGNMENT(=)
    165176  IMPLICIT NONE
    166177    REAL(rstd)         :: field_lmdz(:)
    … …  
    184195
    185196  SUBROUTINE transfer_lmdz2d_to_icosa(field_lmdz,f_field_icosa)
    186   USE field_mod
     197! from dynamico
     198  USE prec, ONLY: rstd
     199  USE field_mod, ONLY: t_field, ASSIGNMENT(=)
    187200  IMPLICIT NONE
    188201    REAL(rstd)         :: field_lmdz(:,:)
    … …  
    211224
    212225  SUBROUTINE transfer_lmdz3d_to_icosa(field_lmdz,f_field_icosa)
    213   USE field_mod
     226! from dynamico
     227  USE prec, ONLY: rstd
     228  USE field_mod, ONLY: t_field, ASSIGNMENT(=)
    214229  IMPLICIT NONE
    215230    REAL(rstd)         :: field_lmdz(:,:,:)
Note: See TracChangeset for help on using the changeset viewer.