Changeset 5271 for LMDZ6/trunk/libf/dyn3dmem
- Timestamp:
- Oct 24, 2024, 4:25:39 PM (24 hours ago)
- Location:
- LMDZ6/trunk/libf/dyn3dmem
- Files:
-
- 1 deleted
- 96 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/addfi_loc.f90
r5246 r5271 8 8 USE infotrac, ONLY : nqtot 9 9 USE control_mod, ONLY : planet_type 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 11 IMPLICIT NONE 11 12 ! … … 46 47 ! ------------------ 47 48 ! 48 include "dimensions.h"49 49 include "paramet.h" 50 50 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/advect_new_loc.f90
r5268 r5271 10 10 USE logic_mod, ONLY: conser 11 11 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 12 IMPLICIT NONE 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 IMPLICIT NONE 13 14 !======================================================================= 14 15 ! … … 30 31 ! ------------- 31 32 32 include "dimensions.h" 33 33 34 include "paramet.h" 34 35 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/advect_new_mod.f90
r5268 r5271 17 17 USE allocate_field_mod 18 18 USE parallel_lmdz 19 USE dimensions_mod 20 IMPLICIT NONE 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 21 20 TYPE(distrib),POINTER :: d 22 21 -
LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.f90
r5268 r5271 21 21 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 22 22 USE strings_mod, ONLY: int2str 23 IMPLICIT NONE 23 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 24 IMPLICIT NONE 24 25 ! 25 include "dimensions.h" 26 26 27 include "paramet.h" 27 28 include "comdissip.h" -
LMDZ6/trunk/libf/dyn3dmem/advtrac_mod.f90
r5268 r5271 10 10 USE parallel_lmdz 11 11 USE vlspltgen_mod 12 IMPLICIT NONE 13 INCLUDE "dimensions.h" 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 IMPLICIT NONE 14 14 15 INCLUDE "paramet.h" 15 16 TYPE(distrib),POINTER :: d -
LMDZ6/trunk/libf/dyn3dmem/allocate_field_mod.f90
r5268 r5271 158 158 SUBROUTINE allocate1d_u2d(field,d) 159 159 USE parallel_lmdz 160 USE dimensions_mod 161 IMPLICIT NONE 160 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 162 161 REAL,POINTER :: field(:,:) 163 162 TYPE(distrib),INTENT(IN) :: d … … 175 174 SUBROUTINE allocate2d_u2d(field,dim1,d) 176 175 USE parallel_lmdz 177 USE dimensions_mod 178 IMPLICIT NONE 176 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 179 177 REAL,POINTER :: field(:,:,:) 180 178 INTEGER :: dim1 … … 192 190 SUBROUTINE allocate3d_u2d(field,dim1,dim2,d) 193 191 USE parallel_lmdz 194 USE dimensions_mod 195 IMPLICIT NONE 192 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 196 193 REAL,POINTER :: field(:,:,:,:) 197 194 INTEGER :: dim1,dim2 … … 211 208 SUBROUTINE allocate1d_v2d(field,d) 212 209 USE parallel_lmdz 213 USE dimensions_mod 214 IMPLICIT NONE 210 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 215 211 REAL,POINTER :: field(:,:) 216 212 TYPE(distrib),INTENT(IN) :: d … … 228 224 SUBROUTINE allocate2d_v2d(field,dim1,d) 229 225 USE parallel_lmdz 230 USE dimensions_mod 231 IMPLICIT NONE 226 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 232 227 REAL,POINTER :: field(:,:,:) 233 228 INTEGER :: dim1 … … 245 240 SUBROUTINE allocate3d_v2d(field,dim1,dim2,d) 246 241 USE parallel_lmdz 247 USE dimensions_mod 248 IMPLICIT NONE 242 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 249 243 REAL,POINTER :: field(:,:,:,:) 250 244 INTEGER :: dim1,dim2 … … 511 505 USE parallel_lmdz 512 506 USE mod_hallo 513 USE dimensions_mod 514 IMPLICIT NONE 507 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 515 508 REAL,POINTER :: field(:,:) 516 509 TYPE(distrib),INTENT(IN) :: old_dist … … 548 541 USE parallel_lmdz 549 542 USE mod_hallo 550 USE dimensions_mod 551 IMPLICIT NONE 543 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 552 544 REAL,POINTER :: field(:,:,:) 553 545 TYPE(distrib),INTENT(IN) :: old_dist … … 585 577 USE parallel_lmdz 586 578 USE mod_hallo 587 USE dimensions_mod 588 IMPLICIT NONE 579 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 589 580 REAL,POINTER :: field(:,:,:,:) 590 581 TYPE(distrib),INTENT(IN) :: old_dist … … 625 616 USE parallel_lmdz 626 617 USE mod_hallo 627 USE dimensions_mod 628 IMPLICIT NONE 618 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 629 619 REAL,POINTER :: field(:,:) 630 620 TYPE(distrib),INTENT(IN) :: old_dist … … 662 652 USE parallel_lmdz 663 653 USE mod_hallo 664 USE dimensions_mod 665 IMPLICIT NONE 654 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 666 655 REAL,POINTER :: field(:,:,:) 667 656 TYPE(distrib),INTENT(IN) :: old_dist … … 699 688 USE parallel_lmdz 700 689 USE mod_hallo 701 USE dimensions_mod 702 IMPLICIT NONE 690 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 703 691 REAL,POINTER :: field(:,:,:,:) 704 692 TYPE(distrib),INTENT(IN) :: old_dist -
LMDZ6/trunk/libf/dyn3dmem/bands.f90
r5268 r5271 42 42 subroutine Read_distrib 43 43 USE parallel_lmdz 44 implicit none 45 46 include "dimensions.h" 44 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 45 implicit none 46 47 47 48 integer :: i,j 48 49 character (len=4) :: siim,sjjm,sllm,sproc … … 105 106 SUBROUTINE Set_Bands 106 107 USE parallel_lmdz 107 IMPLICIT NONE 108 INCLUDE 'dimensions.h' 108 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 109 IMPLICIT NONE 110 109 111 INTEGER :: i, ij 110 112 INTEGER :: jj_para_begin(0:mpi_size-1) … … 438 440 subroutine WriteBands 439 441 USE parallel_lmdz 440 implicit none 441 include "dimensions.h" 442 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 443 implicit none 444 442 445 443 446 integer :: i,j -
LMDZ6/trunk/libf/dyn3dmem/bernoui_loc.f90
r5246 r5271 2 2 USE parallel_lmdz 3 3 USE mod_filtreg_p 4 IMPLICIT NONE 4 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 5 IMPLICIT NONE 5 6 6 7 !======================================================================= … … 24 25 ! ------------- 25 26 ! 26 include "dimensions.h" 27 27 28 include "paramet.h" 28 29 ! -
LMDZ6/trunk/libf/dyn3dmem/bilan_dyn_loc.f90
r5268 r5271 19 19 USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn 20 20 21 IMPLICIT NONE 22 23 include "dimensions.h" 21 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 22 IMPLICIT NONE 23 24 24 25 include "paramet.h" 25 26 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3dmem/caladvtrac_loc.f90
r5268 r5271 17 17 USE write_field_loc 18 18 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 19 IMPLICIT NONE 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 IMPLICIT NONE 20 21 ! 21 22 ! Auteurs: F.Hourdin , P.Le Van, F.Forget, F.Codron … … 29 30 30 31 31 include "dimensions.h" 32 32 33 include "paramet.h" 33 34 -
LMDZ6/trunk/libf/dyn3dmem/caladvtrac_mod.f90
r5268 r5271 34 34 USE advtrac_mod, ONLY : advtrac_allocate 35 35 USE groupe_mod 36 IMPLICIT NONE 37 INCLUDE "dimensions.h" 36 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 37 IMPLICIT NONE 38 38 39 INCLUDE "paramet.h" 39 40 TYPE(distrib),POINTER :: d -
LMDZ6/trunk/libf/dyn3dmem/caldyn_loc.f90
r5268 r5271 8 8 USE comvert_mod, ONLY: ap, bp 9 9 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 10 IMPLICIT NONE 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 IMPLICIT NONE 11 12 12 13 !======================================================================= … … 26 27 ! ---------------- 27 28 28 include "dimensions.h" 29 29 30 include "paramet.h" 30 31 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/caldyn_mod.f90
r5268 r5271 22 22 USE allocate_field_mod 23 23 USE parallel_lmdz 24 USE dimensions_mod 25 USE advect_new_mod,ONLY : advect_new_allocate 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE advect_new_mod,ONLY : advect_new_allocate 26 25 IMPLICIT NONE 27 26 TYPE(distrib),POINTER :: d -
LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.f90
r5268 r5271 36 36 USE allocate_field_mod 37 37 USE parallel_lmdz 38 USE dimensions_mod 39 USE infotrac, ONLY: nqtot 38 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE infotrac, ONLY: nqtot 40 39 IMPLICIT NONE 41 40 TYPE(distrib),POINTER :: d … … 72 71 SUBROUTINE call_calfis(itau,lafin,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, & 73 72 phis_dyn,q_dyn,flxw_dyn) 74 USE dimensions_mod 75 use exner_hyb_loc_m, only: exner_hyb_loc 73 USE dimensions_mod, ONLY: iim, jjm, llm, ndm use exner_hyb_loc_m, only: exner_hyb_loc 76 74 use exner_milieu_loc_m, only: exner_milieu_loc 77 75 USE parallel_lmdz -
LMDZ6/trunk/libf/dyn3dmem/call_dissip_mod.f90
r5268 r5271 24 24 USE allocate_field_mod 25 25 USE parallel_lmdz 26 USE dimensions_mod 27 USE dissip_mod, ONLY : dissip_allocate 26 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE dissip_mod, ONLY : dissip_allocate 28 27 IMPLICIT NONE 29 28 TYPE(distrib),POINTER :: d … … 80 79 81 80 SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn) 82 USE dimensions_mod 83 USE parallel_lmdz 81 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE parallel_lmdz 84 82 USE times 85 83 USE mod_hallo -
LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.f90
r5268 r5271 6 6 USE iso_params_mod, ONLY: tnat_H216O, tnat_H217O, tnat_H218O, tnat_HDO, tnat_HTO 7 7 USE ioipsl, ONLY: getin 8 IMPLICIT NONE 9 include "dimensions.h" 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 IMPLICIT NONE 10 10 11 REAL, INTENT(INOUT) :: q(ijb_u:ije_u,llm,nqtot) 11 12 INTEGER, INTENT(IN) :: ijb, ije !--- Can be local and different from ijb_u,ije_u, for example in qminimum -
LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90
r5267 r5271 23 23 USE temps_mod, ONLY: calend, year_len, offline_time 24 24 25 IMPLICIT NONE 25 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 26 IMPLICIT NONE 26 27 !----------------------------------------------------------------------- 27 28 ! Auteurs : L. Fairhead , P. Le Van . … … 30 31 31 32 ! tapedef : 32 ! etatinit : = TRUE , on ne compare pas les valeurs des para- 33 ! etatinit : = TRUE , on ne compare pas les valeurs des para- 33 34 ! -metres du zoom avec celles lues sur le fichier start . 34 35 … … 38 39 ! Declarations : 39 40 ! -------------- 40 include "dimensions.h" 41 41 42 include "paramet.h" 42 43 include "comdissnew.h" -
LMDZ6/trunk/libf/dyn3dmem/convflu_loc.f90
r5246 r5271 16 16 ! 17 17 USE parallel_lmdz 18 IMPLICIT NONE 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 IMPLICIT NONE 19 20 ! 20 INCLUDE "dimensions.h" 21 21 22 INCLUDE "paramet.h" 22 23 REAL :: xflu,yflu,convfl,convpn,convps -
LMDZ6/trunk/libf/dyn3dmem/convmas1_loc.f90
r5268 r5271 8 8 USE parallel_lmdz 9 9 USE mod_filtreg_p 10 IMPLICIT NONE 11 include "dimensions.h" 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 IMPLICIT NONE 12 12 13 include "paramet.h" 13 14 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/convmas2_loc.f90
r5268 r5271 7 7 ! Equivalent to convmas_loc if convmas1_loc is called before. 8 8 USE parallel_lmdz 9 IMPLICIT NONE 10 include "dimensions.h" 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 IMPLICIT NONE 11 11 12 include "paramet.h" 12 13 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/convmas_loc.f90
r5268 r5271 7 7 USE parallel_lmdz 8 8 USE mod_filtreg_p 9 IMPLICIT NONE 10 include "dimensions.h" 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 IMPLICIT NONE 11 11 12 include "paramet.h" 12 13 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/covcont_loc.f90
r5246 r5271 1 1 SUBROUTINE covcont_loc (klevel,ucov, vcov, ucont, vcont ) 2 2 USE parallel_lmdz 3 IMPLICIT NONE 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 IMPLICIT NONE 4 5 5 6 !======================================================================= … … 17 18 !======================================================================= 18 19 19 INCLUDE "dimensions.h" 20 20 21 INCLUDE "paramet.h" 21 22 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/covnat_loc.f90
r5246 r5271 4 4 SUBROUTINE covnat_loc(klevel,ucov, vcov, unat, vnat ) 5 5 USE parallel_lmdz 6 IMPLICIT NONE 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 IMPLICIT NONE 7 8 8 9 !======================================================================= … … 20 21 !======================================================================= 21 22 22 INCLUDE "dimensions.h" 23 23 24 INCLUDE "paramet.h" 24 25 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/dissip_loc.f90
r5268 r5271 9 9 USE comconst_mod, ONLY: dtdiss 10 10 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 11 IMPLICIT NONE 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 IMPLICIT NONE 12 13 13 14 … … 30 31 ! ------------- 31 32 32 include "dimensions.h" 33 33 34 include "paramet.h" 34 35 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/dissip_mod.f90
r5268 r5271 9 9 USE allocate_field_mod 10 10 USE parallel_lmdz 11 USE dimensions_mod 12 USE gradiv2_mod, ONLY : gradiv2_allocate 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE gradiv2_mod, ONLY : gradiv2_allocate 13 12 USE nxgraro2_mod, ONLY : nxgraro2_allocate 14 13 USE divgrad2_mod, ONLY : divgrad2_allocate -
LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.f90
r5246 r5271 10 10 ! ********************************************************************* 11 11 USE parallel_lmdz 12 IMPLICIT NONE 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 IMPLICIT NONE 13 14 ! 14 15 ! x et y sont des arguments d'entree pour le s-prog … … 21 22 ! 22 23 ! --------------------------------------------------------------------- 23 INCLUDE "dimensions.h" 24 24 25 INCLUDE "paramet.h" 25 26 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/diverg_p.f90
r5246 r5271 9 9 ! ********************************************************************* 10 10 USE parallel_lmdz 11 IMPLICIT NONE 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 IMPLICIT NONE 12 13 ! 13 14 ! x et y sont des arguments d'entree pour le s-prog … … 20 21 ! 21 22 ! --------------------------------------------------------------------- 22 INCLUDE "dimensions.h" 23 23 24 INCLUDE "paramet.h" 24 25 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/divergf_loc.f90
r5246 r5271 10 10 USE parallel_lmdz 11 11 USE mod_filtreg_p 12 IMPLICIT NONE 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 IMPLICIT NONE 13 14 ! 14 15 ! x et y sont des arguments d'entree pour le s-prog … … 21 22 ! 22 23 ! --------------------------------------------------------------------- 23 INCLUDE "dimensions.h" 24 24 25 INCLUDE "paramet.h" 25 26 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/divgrad2_loc.f90
r5246 r5271 14 14 USE mod_hallo 15 15 USE divgrad2_mod 16 IMPLICIT NONE 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 IMPLICIT NONE 17 18 ! 18 INCLUDE "dimensions.h" 19 19 20 INCLUDE "paramet.h" 20 21 INCLUDE "comgeom2.h" -
LMDZ6/trunk/libf/dyn3dmem/divgrad2_mod.f90
r5268 r5271 9 9 USE allocate_field_mod 10 10 USE parallel_lmdz 11 USE dimensions_mod 12 IMPLICIT NONE 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 13 12 TYPE(distrib),POINTER :: d 14 13 d=>distrib_dissip -
LMDZ6/trunk/libf/dyn3dmem/dteta1_loc.f90
r5246 r5271 3 3 USE write_field_p 4 4 USE mod_filtreg_p 5 IMPLICIT NONE 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 IMPLICIT NONE 6 7 7 8 !======================================================================= … … 21 22 22 23 23 include "dimensions.h" 24 24 25 include "paramet.h" 25 26 -
LMDZ6/trunk/libf/dyn3dmem/dudv1_loc.f90
r5246 r5271 1 1 SUBROUTINE dudv1_loc ( vorpot, pbaru, pbarv, du, dv ) 2 2 USE parallel_lmdz 3 IMPLICIT NONE 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 IMPLICIT NONE 4 5 ! 5 6 !----------------------------------------------------------------------- … … 17 18 !----------------------------------------------------------------------- 18 19 19 INCLUDE "dimensions.h" 20 20 21 INCLUDE "paramet.h" 21 22 -
LMDZ6/trunk/libf/dyn3dmem/dudv2_loc.f90
r5246 r5271 1 1 SUBROUTINE dudv2_loc ( teta, pkf, bern, du, dv ) 2 2 USE parallel_lmdz 3 IMPLICIT NONE 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 IMPLICIT NONE 4 5 ! 5 6 !======================================================================= … … 23 24 !======================================================================= 24 25 ! 25 include "dimensions.h" 26 26 27 include "paramet.h" 27 28 -
LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.f90
r5268 r5271 24 24 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS 25 25 26 IMPLICIT NONE 27 include "dimensions.h" 26 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 27 IMPLICIT NONE 28 28 29 include "paramet.h" 29 30 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.f90
r5268 r5271 22 22 USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0 23 23 24 IMPLICIT NONE 25 include "dimensions.h" 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 25 IMPLICIT NONE 26 26 27 include "paramet.h" 27 28 include "comgeom.h" … … 176 177 USE temps_mod, ONLY: itau_dyn, itaufin 177 178 178 IMPLICIT NONE 179 include "dimensions.h" 179 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 180 IMPLICIT NONE 181 180 182 include "paramet.h" 181 183 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/dynredem_mod.f90
r5268 r5271 1 1 MODULE dynredem_mod 2 2 3 USE dimensions_mod 4 USE parallel_lmdz 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE parallel_lmdz 5 4 USE mod_hallo 6 5 USE netcdf -
LMDZ6/trunk/libf/dyn3dmem/enercin_loc.f90
r5268 r5271 6 6 ! Purpose: Compute kinetic energy at sigma levels. 7 7 USE parallel_lmdz 8 IMPLICIT NONE 9 include "dimensions.h" 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 IMPLICIT NONE 10 10 11 include "paramet.h" 11 12 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/exner_hyb_loc_m.f90
r5268 r5271 38 38 USE comvert_mod, ONLY: preff 39 39 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 40 IMPLICIT NONE 41 ! 42 include "dimensions.h" 40 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 41 IMPLICIT NONE 42 ! 43 43 44 include "paramet.h" 44 45 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/exner_milieu_loc_m.f90
r5268 r5271 34 34 USE comvert_mod, ONLY: preff 35 35 36 IMPLICIT NONE 36 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 37 IMPLICIT NONE 37 38 ! 38 include "dimensions.h" 39 39 40 include "paramet.h" 40 41 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/flumass_loc.f90
r5268 r5271 6 6 ! Purpose: Compute mass flux at s levels. 7 7 USE parallel_lmdz 8 IMPLICIT NONE 9 include "dimensions.h" 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 IMPLICIT NONE 10 10 11 include "paramet.h" 11 12 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/fluxstokenc_p.f90
r5246 r5271 16 16 17 17 ! 18 IMPLICIT NONE 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 IMPLICIT NONE 19 20 ! 20 21 ! Auteurs: F.Hourdin , P.Le Van, F.Forget, F.Codron … … 27 28 28 29 29 include "dimensions.h" 30 30 31 include "paramet.h" 31 32 include "tracstoke.h" -
LMDZ6/trunk/libf/dyn3dmem/friction_loc.f90
r5268 r5271 7 7 USE control_mod 8 8 USE IOIPSL 9 10 9 USE comconst_mod, ONLY: pi 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 11 IMPLICIT NONE 12 12 … … 23 23 !======================================================================= 24 24 25 include "dimensions.h"26 25 include "paramet.h" 27 26 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3dmem/gcm.F90
r5267 r5271 28 28 29 29 30 IMPLICIT NONE 30 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 31 IMPLICIT NONE 31 32 32 33 ! ...... Version du 10/01/98 .......... 33 34 34 ! avec coordonnees verticales hybrides 35 ! avec coordonnees verticales hybrides 35 36 ! avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 ) 36 37 … … 59 60 ! Declarations: 60 61 ! ------------- 61 include "dimensions.h" 62 62 63 include "paramet.h" 63 64 include "comdissnew.h" -
LMDZ6/trunk/libf/dyn3dmem/geopot_loc.f90
r5246 r5271 1 1 SUBROUTINE geopot_loc ( ngrid, teta, pk, pks, phis, phi ) 2 2 USE parallel_lmdz 3 IMPLICIT NONE 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 IMPLICIT NONE 4 5 5 6 … … 26 27 ! ------------- 27 28 28 include "dimensions.h" 29 29 30 include "paramet.h" 30 31 -
LMDZ6/trunk/libf/dyn3dmem/gr_u_scal_loc.f90
r5246 r5271 26 26 !======================================================================= 27 27 USE parallel_lmdz 28 IMPLICIT NONE 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 IMPLICIT NONE 29 30 !----------------------------------------------------------------------- 30 31 ! Declararations: 31 32 ! --------------- 32 33 33 INCLUDE "dimensions.h" 34 34 35 INCLUDE "paramet.h" 35 36 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/gr_v_scal_loc.f90
r5246 r5271 26 26 !======================================================================= 27 27 USE parallel_lmdz 28 IMPLICIT NONE 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 IMPLICIT NONE 29 30 !----------------------------------------------------------------------- 30 31 ! Declararations: 31 32 ! --------------- 32 33 33 INCLUDE "dimensions.h" 34 34 35 INCLUDE "paramet.h" 35 36 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/grad_loc.f90
r5246 r5271 11 11 ! 12 12 USE parallel_lmdz 13 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 ! 15 INCLUDE "dimensions.h" 16 16 17 INCLUDE "paramet.h" 17 18 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3dmem/grad_p.f90
r5246 r5271 11 11 ! 12 12 USE parallel_lmdz 13 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 ! 15 INCLUDE "dimensions.h" 16 16 17 INCLUDE "paramet.h" 17 18 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3dmem/gradiv2_loc.f90
r5246 r5271 19 19 USE mod_filtreg_p 20 20 USE gradiv2_mod 21 IMPLICIT NONE 21 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 22 IMPLICIT NONE 22 23 ! 23 INCLUDE "dimensions.h" 24 24 25 INCLUDE "paramet.h" 25 26 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/gradiv2_mod.f90
r5268 r5271 11 11 USE allocate_field_mod 12 12 USE parallel_lmdz 13 USE dimensions_mod 14 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 15 14 TYPE(distrib),POINTER :: d 16 15 d=>distrib_dissip -
LMDZ6/trunk/libf/dyn3dmem/groupe_loc.f90
r5268 r5271 5 5 USE comconst_mod, ONLY: ngroup 6 6 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 7 implicit none 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 implicit none 8 9 9 10 ! sous-programme servant a fitlrer les champs de flux de masse aux … … 18 19 ! pas besoin de w en entree. 19 20 20 include "dimensions.h" 21 21 22 include "paramet.h" 22 23 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3dmem/groupe_mod.f90
r5268 r5271 12 12 ! USE infotrac 13 13 USE advtrac_mod, ONLY : advtrac_allocate 14 IMPLICIT NONE 15 INCLUDE "dimensions.h" 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 IMPLICIT NONE 16 16 17 INCLUDE "paramet.h" 17 18 TYPE(distrib),POINTER :: d -
LMDZ6/trunk/libf/dyn3dmem/groupeun_loc.f90
r5246 r5271 3 3 USE Write_Field_p 4 4 USE comconst_mod, ONLY: ngroup 5 IMPLICIT NONE 6 7 include "dimensions.h" 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 IMPLICIT NONE 7 8 8 9 include "paramet.h" 9 10 include "comgeom2.h" … … 137 138 USE parallel_lmdz 138 139 USE comconst_mod, ONLY: ngroup 139 IMPLICIT NONE 140 141 include "dimensions.h" 140 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 141 IMPLICIT NONE 142 143 142 144 include "paramet.h" 143 145 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.f90
r5270 r5271 80 80 USE serre_mod, ONLY: grossismx 81 81 82 IMPLICIT NONE 83 84 INCLUDE "dimensions.h" 82 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 83 IMPLICIT NONE 84 85 85 86 INCLUDE "paramet.h" 86 87 … … 369 370 USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner 370 371 371 IMPLICIT NONE 372 373 INCLUDE "dimensions.h" 372 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 373 IMPLICIT NONE 374 375 374 376 INCLUDE "paramet.h" 375 377 … … 729 731 ! field1=a*field1+alpha*field2 730 732 731 IMPLICIT NONE 732 INCLUDE "dimensions.h" 733 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 734 IMPLICIT NONE 735 733 736 INCLUDE "paramet.h" 734 737 … … 752 755 ! field1=a*field1+alpha*field2 753 756 754 IMPLICIT NONE 755 INCLUDE "dimensions.h" 757 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 758 IMPLICIT NONE 759 756 760 INCLUDE "paramet.h" 757 761 … … 777 781 USE comconst_mod, ONLY: pi 778 782 779 IMPLICIT NONE 780 781 INCLUDE "dimensions.h" 783 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 784 IMPLICIT NONE 785 786 782 787 INCLUDE "paramet.h" 783 788 INCLUDE "comgeom.h" … … 849 854 USE comconst_mod, ONLY: pi 850 855 851 IMPLICIT NONE 852 853 INCLUDE "dimensions.h" 856 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 857 IMPLICIT NONE 858 859 854 860 INCLUDE "paramet.h" 855 861 INCLUDE "comgeom.h" … … 921 927 USE comconst_mod, ONLY: cpp, kappa 922 928 USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type 923 IMPLICIT NONE 924 925 include "dimensions.h" 929 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 930 IMPLICIT NONE 931 932 926 933 include "paramet.h" 927 934 include "comgeom2.h" … … 1409 1416 use serre_mod, only: clat, clon, grossismx, grossismy 1410 1417 1411 implicit none 1412 1413 include "dimensions.h" 1418 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1419 implicit none 1420 1421 1414 1422 include "paramet.h" 1415 1423 include "comgeom2.h" … … 1576 1584 SUBROUTINE guide_read(timestep) 1577 1585 USE netcdf, ONLY: nf90_put_var 1578 IMPLICIT NONE 1579 include "dimensions.h" 1586 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1587 IMPLICIT NONE 1588 1580 1589 include "paramet.h" 1581 1590 … … 1893 1902 SUBROUTINE guide_read2D(timestep) 1894 1903 USE netcdf, ONLY: nf90_put_var 1895 IMPLICIT NONE 1896 include "dimensions.h" 1904 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1905 IMPLICIT NONE 1906 1897 1907 include "paramet.h" 1898 1908 … … 2171 2181 use netcdf, only: nf90_float, nf90_put_var 2172 2182 2173 IMPLICIT NONE 2174 2175 INCLUDE "dimensions.h" 2183 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2184 IMPLICIT NONE 2185 2186 2176 2187 INCLUDE "paramet.h" 2177 2188 INCLUDE "comgeom2.h" … … 2393 2404 use parallel_lmdz 2394 2405 use mod_hallo 2406 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2395 2407 implicit none 2396 include 'dimensions.h' 2408 2397 2409 include 'paramet.h' 2398 2410 … … 2423 2435 !==================================================================== 2424 2436 subroutine dumpall 2425 implicit none 2426 include "dimensions.h" 2437 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2438 implicit none 2439 2427 2440 include "paramet.h" 2428 2441 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/iniacademic_loc.f90
r5268 r5271 27 27 ! of the American Meteorological Society, 75, 1825. 28 28 29 IMPLICIT NONE 29 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 30 IMPLICIT NONE 30 31 31 32 ! Declararations: 32 33 ! --------------- 33 34 34 include "dimensions.h" 35 35 36 include "paramet.h" 36 37 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/initdynav_loc.f90
r5268 r5271 17 17 USE temps_mod, ONLY: itau_dyn 18 18 19 implicit none 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 implicit none 20 21 21 22 ! … … 44 45 ! 45 46 ! Declarations 46 include "dimensions.h" 47 47 48 include "paramet.h" 48 49 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/initfluxsto_p.f90
r5268 r5271 16 16 USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn 17 17 18 implicit none 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 implicit none 19 20 20 21 ! … … 45 46 ! 46 47 ! Declarations 47 include "dimensions.h" 48 48 49 include "paramet.h" 49 50 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/inithist_loc.f90
r5268 r5271 16 16 USE temps_mod, ONLY: itau_dyn 17 17 18 implicit none 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 implicit none 19 20 20 21 ! … … 42 43 ! 43 44 ! Declarations 44 include "dimensions.h" 45 45 46 include "paramet.h" 46 47 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/integrd_loc.f90
r5258 r5271 16 16 USE temps_mod, ONLY: dt 17 17 USE strings_mod, ONLY: int2str 18 IMPLICIT NONE 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 IMPLICIT NONE 19 20 20 21 … … 34 35 ! ------------- 35 36 36 include "dimensions.h" 37 37 38 include "paramet.h" 38 39 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/integrd_mod.f90
r5268 r5271 13 13 USE allocate_field_mod 14 14 USE parallel_lmdz 15 USE dimensions_mod 16 USE advect_new_mod,ONLY : advect_new_allocate 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE advect_new_mod,ONLY : advect_new_allocate 17 16 IMPLICIT NONE 18 17 TYPE(distrib),POINTER :: d -
LMDZ6/trunk/libf/dyn3dmem/laplacien_gam_loc.f90
r5246 r5271 12 12 ! 13 13 USE parallel_lmdz 14 IMPLICIT NONE 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 IMPLICIT NONE 15 16 ! 16 INCLUDE "dimensions.h" 17 17 18 INCLUDE "paramet.h" 18 19 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/laplacien_loc.f90
r5246 r5271 11 11 USE parallel_lmdz 12 12 USE mod_filtreg_p 13 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 ! 15 INCLUDE "dimensions.h" 16 16 17 INCLUDE "paramet.h" 17 18 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/laplacien_rot_loc.f90
r5246 r5271 12 12 USE parallel_lmdz 13 13 USE mod_filtreg_p 14 IMPLICIT NONE 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 IMPLICIT NONE 15 16 ! 16 INCLUDE "dimensions.h" 17 17 18 INCLUDE "paramet.h" 18 19 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/laplacien_rotgam_loc.f90
r5246 r5271 10 10 ! 11 11 USE parallel_lmdz 12 IMPLICIT NONE 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 IMPLICIT NONE 13 14 ! 14 INCLUDE "dimensions.h" 15 15 16 INCLUDE "paramet.h" 16 17 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90
r5268 r5271 40 40 USE strings_mod, ONLY: int2str 41 41 42 IMPLICIT NONE 42 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 43 IMPLICIT NONE 43 44 44 45 ! ...... Version du 10/01/98 .......... … … 73 74 ! ------------- 74 75 75 include "dimensions.h" 76 76 77 include "paramet.h" 77 78 include "comdissnew.h" -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_mod.f90
r5268 r5271 39 39 USE allocate_field_mod 40 40 USE parallel_lmdz 41 USE dimensions_mod 42 USE infotrac 41 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE infotrac 43 42 USE caldyn_mod,ONLY : caldyn_allocate 44 43 USE integrd_mod,ONLY : integrd_allocate -
LMDZ6/trunk/libf/dyn3dmem/massbar_loc.f90
r5268 r5271 7 7 ! See iniconst for more details. 8 8 USE parallel_lmdz 9 IMPLICIT NONE 10 include "dimensions.h" 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 IMPLICIT NONE 11 11 12 include "paramet.h" 12 13 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/massbarxy_loc.f90
r5268 r5271 7 7 ! See iniconst for more details. 8 8 USE parallel_lmdz 9 IMPLICIT NONE 10 include "dimensions.h" 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 IMPLICIT NONE 11 11 12 include "paramet.h" 12 13 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/massdair_loc.f90
r5246 r5271 14 14 ! .... p est defini aux interfaces des llm couches ..... 15 15 ! 16 IMPLICIT NONE 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 IMPLICIT NONE 17 18 ! 18 include "dimensions.h" 19 19 20 include "paramet.h" 20 21 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/mod_filtreg_p.F90
r5246 r5271 13 13 matricevn, matricevs 14 14 15 IMPLICIT NONE 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 IMPLICIT NONE 16 17 17 18 !======================================================================= … … 55 56 ! 56 57 ! 57 INCLUDE "dimensions.h" 58 58 59 INCLUDE "paramet.h" 59 60 INCLUDE "coefils.h" -
LMDZ6/trunk/libf/dyn3dmem/mod_hallo.f90
r5268 r5271 68 68 69 69 subroutine Init_mod_hallo 70 USE dimensions_mod 71 USE IOIPSL 70 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE IOIPSL 72 71 implicit none 73 72 integer :: jj_nb_gather(0:mpi_size-1) … … 215 214 216 215 subroutine Register_SendField(Field,ij,ll,offset,size,target,a_request) 217 USE dimensions_mod 218 implicit none 216 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 219 217 220 218 … … 231 229 232 230 subroutine Register_RecvField(Field,ij,ll,offset,size,target,a_request) 233 USE dimensions_mod 234 implicit none 231 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 235 232 236 233 … … 248 245 249 246 subroutine Register_SwapField(FieldS,FieldR,ij,ll,jj_Nb_New,a_request) 250 USE dimensions_mod 251 implicit none 247 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 252 248 253 249 … … 296 292 297 293 subroutine Register_SwapFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down,a_request) 298 USE dimensions_mod 299 294 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 300 295 implicit none 301 296 … … 350 345 SUBROUTINE Register_SwapField1d_u(FieldS,FieldR,new_dist,a_request,up,down) 351 346 USE parallel_lmdz 352 USE dimensions_mod 353 IMPLICIT NONE 347 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 354 348 355 349 TYPE(distrib),INTENT(IN) :: new_dist … … 375 369 SUBROUTINE Register_SwapField1d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 376 370 USE parallel_lmdz 377 USE dimensions_mod 378 IMPLICIT NONE 371 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 379 372 380 373 TYPE(distrib),INTENT(IN) :: new_dist … … 402 395 SUBROUTINE Register_SwapField2d_u1d(FieldS,FieldR,new_dist,a_request,up,down) 403 396 USE parallel_lmdz 404 USE dimensions_mod 405 IMPLICIT NONE 397 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 406 398 407 399 TYPE(distrib),INTENT(IN) :: new_dist … … 430 422 SUBROUTINE Register_SwapField2d_u1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 431 423 USE parallel_lmdz 432 USE dimensions_mod 433 IMPLICIT NONE 424 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 434 425 435 426 TYPE(distrib),INTENT(IN) :: new_dist … … 460 451 SUBROUTINE Register_SwapField3d_u(FieldS,FieldR,new_dist,a_request,up,down) 461 452 USE parallel_lmdz 462 USE dimensions_mod 463 IMPLICIT NONE 453 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 464 454 465 455 TYPE(distrib),INTENT(IN) :: new_dist … … 488 478 SUBROUTINE Register_SwapField3d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 489 479 USE parallel_lmdz 490 USE dimensions_mod 491 IMPLICIT NONE 480 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 492 481 493 482 TYPE(distrib),INTENT(IN) :: new_dist … … 519 508 SUBROUTINE Register_SwapField1d_u2d(FieldS,FieldR,new_dist,a_request,up,down) 520 509 USE parallel_lmdz 521 USE dimensions_mod 522 510 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 523 511 IMPLICIT NONE 524 512 … … 545 533 SUBROUTINE Register_SwapField1d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 546 534 USE parallel_lmdz 547 USE dimensions_mod 548 535 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 549 536 IMPLICIT NONE 550 537 … … 573 560 SUBROUTINE Register_SwapField2d_u2d(FieldS,FieldR,new_dist,a_request,up,down) 574 561 USE parallel_lmdz 575 USE dimensions_mod 576 562 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 577 563 IMPLICIT NONE 578 564 … … 602 588 SUBROUTINE Register_SwapField2d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 603 589 USE parallel_lmdz 604 USE dimensions_mod 605 590 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 606 591 IMPLICIT NONE 607 592 … … 633 618 SUBROUTINE Register_SwapField3d_u2d(FieldS,FieldR,new_dist,a_request,up,down) 634 619 USE parallel_lmdz 635 USE dimensions_mod 636 IMPLICIT NONE 620 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 637 621 638 622 TYPE(distrib),INTENT(IN) :: new_dist … … 661 645 SUBROUTINE Register_SwapField3d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 662 646 USE parallel_lmdz 663 USE dimensions_mod 664 IMPLICIT NONE 647 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 665 648 666 649 TYPE(distrib),INTENT(IN) :: new_dist … … 696 679 SUBROUTINE Register_SwapField1d_v(FieldS,FieldR,new_dist,a_request,up,down) 697 680 USE parallel_lmdz 698 USE dimensions_mod 699 IMPLICIT NONE 681 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 700 682 701 683 TYPE(distrib),INTENT(IN) :: new_dist … … 721 703 SUBROUTINE Register_SwapField1d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 722 704 USE parallel_lmdz 723 USE dimensions_mod 724 IMPLICIT NONE 705 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 725 706 726 707 TYPE(distrib),INTENT(IN) :: new_dist … … 748 729 SUBROUTINE Register_SwapField2d_v1d(FieldS,FieldR,new_dist,a_request,up,down) 749 730 USE parallel_lmdz 750 USE dimensions_mod 751 IMPLICIT NONE 731 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 752 732 753 733 TYPE(distrib),INTENT(IN) :: new_dist … … 776 756 SUBROUTINE Register_SwapField2d_v1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 777 757 USE parallel_lmdz 778 USE dimensions_mod 779 IMPLICIT NONE 758 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 780 759 781 760 TYPE(distrib),INTENT(IN) :: new_dist … … 807 786 SUBROUTINE Register_SwapField3d_v(FieldS,FieldR,new_dist,a_request,up,down) 808 787 USE parallel_lmdz 809 USE dimensions_mod 810 IMPLICIT NONE 788 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 811 789 812 790 TYPE(distrib),INTENT(IN) :: new_dist … … 835 813 SUBROUTINE Register_SwapField3d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 836 814 USE parallel_lmdz 837 USE dimensions_mod 838 IMPLICIT NONE 815 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 839 816 840 817 TYPE(distrib),INTENT(IN) :: new_dist … … 867 844 SUBROUTINE Register_SwapField1d_v2d(FieldS,FieldR,new_dist,a_request,up,down) 868 845 USE parallel_lmdz 869 USE dimensions_mod 870 IMPLICIT NONE 846 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 871 847 872 848 TYPE(distrib),INTENT(IN) :: new_dist !LF … … 892 868 SUBROUTINE Register_SwapField1d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 893 869 USE parallel_lmdz 894 USE dimensions_mod 895 IMPLICIT NONE 870 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 896 871 897 872 TYPE(distrib),INTENT(IN) :: new_dist !LF … … 919 894 SUBROUTINE Register_SwapField2d_v2d(FieldS,FieldR,new_dist,a_request,up,down) 920 895 USE parallel_lmdz 921 USE dimensions_mod 922 IMPLICIT NONE 896 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 923 897 924 898 TYPE(distrib),INTENT(IN) :: new_dist … … 947 921 SUBROUTINE Register_SwapField2d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 948 922 USE parallel_lmdz 949 USE dimensions_mod 950 IMPLICIT NONE 923 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 951 924 952 925 TYPE(distrib),INTENT(IN) :: new_dist … … 977 950 SUBROUTINE Register_SwapField3d_v2d(FieldS,FieldR,new_dist,a_request,up,down) 978 951 USE parallel_lmdz 979 USE dimensions_mod 980 IMPLICIT NONE 952 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 981 953 982 954 TYPE(distrib),INTENT(IN) :: new_dist … … 1005 977 SUBROUTINE Register_SwapField3d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 1006 978 USE parallel_lmdz 1007 USE dimensions_mod 1008 IMPLICIT NONE 979 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 1009 980 1010 981 TYPE(distrib),INTENT(IN) :: new_dist … … 1036 1007 SUBROUTINE Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request) 1037 1008 USE parallel_lmdz 1038 USE dimensions_mod 1039 IMPLICIT NONE 1009 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 1040 1010 1041 1011 INTEGER :: ll,Up,Down … … 1089 1059 SUBROUTINE Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request) 1090 1060 USE parallel_lmdz 1091 USE dimensions_mod 1092 IMPLICIT NONE 1061 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 1093 1062 1094 1063 INTEGER :: ll,Up,Down … … 1148 1117 1149 1118 subroutine Register_Hallo(Field,ij,ll,RUp,Rdown,SUp,SDown,a_request) 1150 USE dimensions_mod 1151 USE lmdz_mpi 1119 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1152 1120 implicit none 1153 1121 … … 1213 1181 1214 1182 subroutine Register_Hallo_u(Field,ll,RUp,Rdown,SUp,SDown,a_request) 1215 USE dimensions_mod 1216 USE lmdz_mpi 1183 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1217 1184 implicit none 1218 1185 INTEGER :: ll … … 1276 1243 1277 1244 subroutine Register_Hallo_v(Field,ll,RUp,Rdown,SUp,SDown,a_request) 1278 USE dimensions_mod 1279 USE lmdz_mpi 1245 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1280 1246 implicit none 1281 1247 INTEGER :: ll … … 1339 1305 1340 1306 subroutine SendRequest(a_Request) 1341 USE dimensions_mod 1342 USE lmdz_mpi 1307 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1343 1308 implicit none 1344 1309 … … 1457 1422 1458 1423 subroutine WaitRequest(a_Request) 1459 USE dimensions_mod 1460 USE lmdz_mpi 1424 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1461 1425 implicit none 1462 1426 … … 1543 1507 subroutine WaitSendRequest(a_Request) 1544 1508 USE lmdz_mpi 1545 USE dimensions_mod 1546 implicit none 1509 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1547 1510 1548 1511 type(request),target :: a_request … … 1590 1553 1591 1554 subroutine WaitRecvRequest(a_Request) 1592 USE dimensions_mod 1593 USE lmdz_mpi 1555 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1594 1556 implicit none 1595 1557 type(request),target :: a_request … … 1661 1623 1662 1624 subroutine CopyField(FieldS,FieldR,ij,ll,jj_Nb_New) 1663 USE dimensions_mod 1664 1625 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1665 1626 implicit none 1666 1627 … … 1699 1660 1700 1661 subroutine CopyFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down) 1701 USE dimensions_mod 1702 1662 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1703 1663 implicit none 1704 1664 … … 1739 1699 1740 1700 subroutine Gather_field_u(field_loc,field_glo,ll) 1741 USE dimensions_mod 1742 implicit none 1701 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1743 1702 integer :: ll 1744 1703 real :: field_loc(ijb_u:ije_u,ll) … … 1762 1721 1763 1722 subroutine Gather_field_v(field_loc,field_glo,ll) 1764 USE dimensions_mod 1765 implicit none 1723 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1766 1724 integer :: ll 1767 1725 real :: field_loc(ijb_v:ije_v,ll) … … 1790 1748 1791 1749 subroutine Scatter_field_u(field_glo,field_loc,ll) 1792 USE dimensions_mod 1793 implicit none 1750 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1794 1751 integer :: ll 1795 1752 real :: field_glo(ip1jmp1,ll) … … 1824 1781 1825 1782 subroutine Scatter_field_v(field_glo,field_loc,ll) 1826 USE dimensions_mod 1827 implicit none 1783 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1828 1784 integer :: ll 1829 1785 real :: field_glo(ip1jmp1,ll) -
LMDZ6/trunk/libf/dyn3dmem/mod_xios_dyn3dmem.f90
r5268 r5271 40 40 USE parallel_lmdz 41 41 42 IMPLICIT NONE 43 44 INCLUDE 'dimensions.h' 42 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 43 IMPLICIT NONE 44 45 45 46 INCLUDE "paramet.h" 46 47 INCLUDE 'comgeom.h' … … 133 134 134 135 USE parallel_lmdz 135 IMPLICIT NONE 136 include 'dimensions.h' 136 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 137 IMPLICIT NONE 138 137 139 include 'paramet.h' 138 140 CHARACTER(LEN=*) :: name … … 154 156 155 157 USE parallel_lmdz 156 IMPLICIT NONE 157 include 'dimensions.h' 158 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 159 IMPLICIT NONE 160 158 161 include 'paramet.h' 159 162 CHARACTER(LEN=*) :: name … … 187 190 188 191 USE parallel_lmdz 189 IMPLICIT NONE 190 include 'dimensions.h' 192 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 193 IMPLICIT NONE 194 191 195 include 'paramet.h' 192 196 CHARACTER(LEN=*) :: name … … 217 221 218 222 USE parallel_lmdz 219 IMPLICIT NONE 220 include 'dimensions.h' 223 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 224 IMPLICIT NONE 225 221 226 include 'paramet.h' 222 227 CHARACTER(LEN=*) :: name -
LMDZ6/trunk/libf/dyn3dmem/nxgrad_gam_loc.f90
r5246 r5271 11 11 USE parallel_lmdz 12 12 13 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 ! 15 INCLUDE "dimensions.h" 16 16 17 INCLUDE "paramet.h" 17 18 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/nxgrad_loc.f90
r5246 r5271 10 10 ! 11 11 USE parallel_lmdz 12 IMPLICIT NONE 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 IMPLICIT NONE 13 14 ! 14 INCLUDE "dimensions.h" 15 15 16 INCLUDE "paramet.h" 16 17 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/nxgraro2_loc.f90
r5246 r5271 18 18 USE mod_filtreg_p 19 19 USE nxgraro2_mod 20 IMPLICIT NONE 20 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 21 IMPLICIT NONE 21 22 ! 22 INCLUDE "dimensions.h" 23 23 24 INCLUDE "paramet.h" 24 25 INCLUDE "comdissipn.h" -
LMDZ6/trunk/libf/dyn3dmem/nxgraro2_mod.f90
r5268 r5271 11 11 USE allocate_field_mod 12 12 USE parallel_lmdz 13 USE dimensions_mod 14 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 15 14 TYPE(distrib),POINTER :: d 16 15 d=>distrib_dissip -
LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90
r5267 r5271 85 85 USE vampir 86 86 USE lmdz_mpi 87 implicit none 88 INCLUDE "dimensions.h" 87 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 88 implicit none 89 89 90 INCLUDE "paramet.h" 90 91 INCLUDE "iniprint.h" … … 244 245 245 246 SUBROUTINE create_distrib(jj_nb_new,d) 246 IMPLICIT NONE 247 INCLUDE "dimensions.h" 247 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 248 IMPLICIT NONE 249 248 250 INCLUDE "paramet.h" 249 251 … … 295 297 296 298 SUBROUTINE Set_Distrib(d) 297 IMPLICIT NONE 298 299 INCLUDE "dimensions.h" 299 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 300 IMPLICIT NONE 301 302 300 303 INCLUDE "paramet.h" 301 304 TYPE(distrib),INTENT(IN) :: d … … 331 334 332 335 SUBROUTINE copy_distrib(dist,new_dist) 333 IMPLICIT NONE 334 335 INCLUDE "dimensions.h" 336 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 337 IMPLICIT NONE 338 339 336 340 INCLUDE "paramet.h" 337 341 TYPE(distrib),INTENT(INOUT) :: dist … … 368 372 369 373 SUBROUTINE get_current_distrib(d) 370 IMPLICIT NONE 371 372 INCLUDE "dimensions.h" 374 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 375 IMPLICIT NONE 376 377 373 378 INCLUDE "paramet.h" 374 379 TYPE(distrib),INTENT(OUT) :: d … … 383 388 USE wxios 384 389 USE control_mod, only : ok_dyn_xios 390 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 385 391 386 392 #ifdef CPP_COUPLE … … 401 407 ! #endif of #ifdef CPP_EARTH 402 408 403 include "dimensions.h"404 409 include "paramet.h" 405 410 … … 447 452 448 453 subroutine Pack_Data(Field,ij,ll,row,Buffer) 449 implicit none 450 451 INCLUDE "dimensions.h" 454 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 455 implicit none 456 457 452 458 INCLUDE "paramet.h" 453 459 … … 470 476 471 477 subroutine Unpack_Data(Field,ij,ll,row,Buffer) 472 implicit none 473 474 INCLUDE "dimensions.h" 478 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 479 implicit none 480 481 475 482 INCLUDE "paramet.h" 476 483 … … 509 516 USE lmdz_mpi 510 517 USE Vampir 511 implicit none 512 INCLUDE "dimensions.h" 518 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 519 implicit none 520 513 521 INCLUDE "paramet.h" 514 522 INTEGER :: ij,ll … … 626 634 subroutine Gather_Field(Field,ij,ll,rank) 627 635 USE lmdz_mpi 628 implicit none 629 INCLUDE "dimensions.h" 636 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 637 implicit none 638 630 639 INCLUDE "paramet.h" 631 640 INCLUDE "iniprint.h" … … 706 715 subroutine AllGather_Field(Field,ij,ll) 707 716 USE lmdz_mpi 708 implicit none 709 INCLUDE "dimensions.h" 717 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 718 implicit none 719 710 720 INCLUDE "paramet.h" 711 721 INTEGER :: ij,ll … … 724 734 subroutine Broadcast_Field(Field,ij,ll,rank) 725 735 USE lmdz_mpi 726 implicit none 727 INCLUDE "dimensions.h" 736 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 737 implicit none 738 728 739 INCLUDE "paramet.h" 729 740 INTEGER :: ij,ll … … 744 755 ! Subroutine verif_hallo(Field,ij,ll,up,down) 745 756 ! USE lmdz_mpi 746 ! implicit none 747 ! INCLUDE "dimensions.h" 757 ! USE dimensions_mod, ONLY: iim, jjm, llm, ndm 758 implicit none 759 ! 748 760 ! INCLUDE "paramet.h" 749 761 ! -
LMDZ6/trunk/libf/dyn3dmem/pression_loc.f90
r5246 r5271 12 12 ! ************************************************************************ 13 13 ! 14 IMPLICIT NONE 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 IMPLICIT NONE 15 16 ! 16 INCLUDE "dimensions.h" 17 17 18 INCLUDE "paramet.h" 18 19 ! -
LMDZ6/trunk/libf/dyn3dmem/qminimum_loc.f90
r5246 r5271 7 7 isoCheck, min_qParent 8 8 USE strings_mod, ONLY: strIdx 9 IMPLICIT none 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 IMPLICIT none 10 11 ! 11 12 ! -- Objet : Traiter les valeurs trop petites (meme negatives) 12 13 ! pour l'eau vapeur et l'eau liquide 13 14 ! 14 include "dimensions.h" 15 15 16 include "paramet.h" 16 17 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3dmem/rotat_nfil_loc.f90
r5246 r5271 11 11 ! 12 12 USE parallel_lmdz 13 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 ! 15 INCLUDE "dimensions.h" 16 16 17 INCLUDE "paramet.h" 17 18 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/rotat_p.f90
r5246 r5271 11 11 ! 12 12 USE parallel_lmdz 13 IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 ! 15 INCLUDE "dimensions.h" 16 16 17 INCLUDE "paramet.h" 17 18 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/rotatf_loc.f90
r5246 r5271 12 12 USE parallel_lmdz 13 13 USE mod_filtreg_p 14 IMPLICIT NONE 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 IMPLICIT NONE 15 16 ! 16 INCLUDE "dimensions.h" 17 17 18 INCLUDE "paramet.h" 18 19 INCLUDE "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/sw_case_williamson91_6_loc.f90
r5246 r5271 30 30 USE comvert_mod, ONLY: ap, bp, preff 31 31 32 IMPLICIT NONE 32 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 33 IMPLICIT NONE 33 34 !----------------------------------------------------------------------- 34 35 ! Declararations: 35 36 ! --------------- 36 37 37 include "dimensions.h" 38 38 39 include "paramet.h" 39 40 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/times.f90
r5268 r5271 26 26 subroutine init_timer 27 27 USE parallel_lmdz 28 implicit none 29 INCLUDE "dimensions.h" 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 implicit none 30 30 31 INCLUDE "paramet.h" 31 32 -
LMDZ6/trunk/libf/dyn3dmem/top_bound_loc.f90
r5246 r5271 8 8 USE comvert_mod, ONLY: presnivs, preff, scaleheight 9 9 10 IMPLICIT NONE 11 ! 12 include "dimensions.h" 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 IMPLICIT NONE 12 ! 13 13 14 include "paramet.h" 14 15 include "comgeom2.h" … … 27 28 ! ------ 28 29 ! 29 ! Dissipation lin éaire (ex top_bound de la physique)30 ! Dissipation lin�aire (ex top_bound de la physique) 30 31 ! 31 32 !======================================================================= -
LMDZ6/trunk/libf/dyn3dmem/tourpot_loc.f90
r5268 r5271 7 7 USE parallel_lmdz 8 8 USE mod_filtreg_p 9 IMPLICIT NONE 10 include "dimensions.h" 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 IMPLICIT NONE 11 11 12 include "paramet.h" 12 13 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/vitvert_loc.f90
r5268 r5271 8 8 USE comvert_mod, ONLY: bp 9 9 10 IMPLICIT NONE 11 include "dimensions.h" 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 IMPLICIT NONE 12 12 13 include "paramet.h" 13 14 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/vlsplt_loc.F90
r5248 r5271 16 16 USE infotrac, ONLY : nqtot,tracers, & ! CRisi & 17 17 min_qParent,min_qMass,min_ratio ! MVals et CRisi 18 IMPLICIT NONE 19 ! 20 include "dimensions.h" 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 IMPLICIT NONE 20 ! 21 21 22 include "paramet.h" 22 23 include "iniprint.h" … … 418 419 min_qParent,min_qMass,min_ratio ! MVals et CRisi 419 420 USE comconst_mod, ONLY: pi 420 IMPLICIT NONE 421 ! 422 include "dimensions.h" 421 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 422 IMPLICIT NONE 423 ! 424 423 425 include "paramet.h" 424 426 include "comgeom.h" … … 886 888 min_qParent,min_qMass,min_ratio ! MVals et CRisi 887 889 888 IMPLICIT NONE 889 ! 890 include "dimensions.h" 890 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 891 IMPLICIT NONE 892 ! 893 891 894 include "paramet.h" 892 895 include "iniprint.h" … … 1207 1210 ! SUBROUTINE minmaxq(zq,qmin,qmax,comment) 1208 1211 ! 1209 ! INCLUDE "dimensions .h"1212 ! INCLUDE "dimensions_mod.f90" 1210 1213 ! INCLUDE "paramet.h" 1211 1214 -
LMDZ6/trunk/libf/dyn3dmem/vlspltgen_loc.F90
r5258 r5271 34 34 USE logic_mod, ONLY: adv_qsat_liq 35 35 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 36 IMPLICIT NONE 37 38 ! 39 include "dimensions.h" 36 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 37 IMPLICIT NONE 38 39 ! 40 40 41 include "paramet.h" 41 42 -
LMDZ6/trunk/libf/dyn3dmem/vlspltgen_mod.f90
r5268 r5271 16 16 USE infotrac 17 17 USE vlz_mod,ONLY : vlz_allocate 18 IMPLICIT NONE 19 INCLUDE "dimensions.h" 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 IMPLICIT NONE 20 20 21 INCLUDE "paramet.h" 21 22 TYPE(distrib),POINTER :: d -
LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F90
r5246 r5271 14 14 USE infotrac, ONLY : nqtot,tracers, & ! CRisi & 15 15 min_qParent,min_qMass,min_ratio ! MVals et CRisi 16 IMPLICIT NONE 17 ! 18 include "dimensions.h" 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 IMPLICIT NONE 18 ! 19 19 20 include "paramet.h" 20 21 ! … … 423 424 min_qParent,min_qMass,min_ratio ! MVals et CRisi 424 425 USE comconst_mod, ONLY: pi 425 IMPLICIT NONE 426 ! 427 include "dimensions.h" 426 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 427 IMPLICIT NONE 428 ! 429 428 430 include "paramet.h" 429 431 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/vlz_mod.f90
r5268 r5271 15 15 USE parallel_lmdz 16 16 USE infotrac 17 USE dimensions_mod 18 IMPLICIT NONE 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 19 18 TYPE(distrib),POINTER :: d 20 19 -
LMDZ6/trunk/libf/dyn3dmem/write_field_loc.f90
r5268 r5271 37 37 USE write_field 38 38 USE mod_hallo 39 implicit none 40 include 'dimensions.h' 39 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 40 implicit none 41 41 42 include 'paramet.h' 42 43 … … 102 103 USE write_field 103 104 USE mod_hallo 104 implicit none 105 include 'dimensions.h' 105 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 106 implicit none 107 106 108 include 'paramet.h' 107 109 -
LMDZ6/trunk/libf/dyn3dmem/writedyn_xios.f90
r5268 r5271 14 14 USE mod_xios_dyn3dmem, ONLY : writefield_dyn_u, writefield_dyn_v 15 15 16 implicit none 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 implicit none 17 18 ! 18 19 ! Ecriture du fichier histoire au format xios … … 28 29 ! ps :pression au sol 29 30 ! phis : geopotentiel au sol 30 ! 31 ! 31 32 ! L. Fairhead, LMD, 03/21 32 33 ! … … 34 35 ! 35 36 ! Declarations 36 include "dimensions.h" 37 37 38 include "paramet.h" 38 39 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/writedynav_loc.f90
r5268 r5271 15 15 USE temps_mod, ONLY: itau_dyn 16 16 17 implicit none 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 implicit none 18 19 19 20 ! … … 43 44 ! 44 45 ! Declarations 45 include "dimensions.h" 46 46 47 include "paramet.h" 47 48 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/writehist_loc.f90
r5268 r5271 15 15 USE temps_mod, ONLY: itau_dyn 16 16 17 implicit none 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 implicit none 18 19 19 20 ! … … 43 44 ! 44 45 ! Declarations 45 include "dimensions.h" 46 46 47 include "paramet.h" 47 48 include "comgeom.h"
Note: See TracChangeset
for help on using the changeset viewer.