Changeset 5272
- Timestamp:
- Oct 24, 2024, 5:53:15 PM (2 months ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 233 edited
- 3 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/addfi.f90
r5271 r5272 9 9 USE control_mod, ONLY : planet_type 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 ! … … 47 49 ! ------------------ 48 50 ! 49 include "paramet.h"50 51 include "comgeom.h" 51 52 ! -
LMDZ6/trunk/libf/dyn3d/advect.f90
r5271 r5272 7 7 USE ener_mod, ONLY: gtot 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 !======================================================================= … … 26 28 ! Declarations: 27 29 ! ------------- 28 29 include "paramet.h"30 30 include "comgeom.h" 31 31 -
LMDZ6/trunk/libf/dyn3d/advtrac.f90
r5271 r5272 15 15 USE strings_mod, ONLY: int2str 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 18 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 17 19 IMPLICIT NONE 18 20 ! 19 21 20 include "paramet.h" 22 21 23 include "comdissip.h" 22 24 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3d/bilan_dyn.f90
r5271 r5272 16 16 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 20 IMPLICIT NONE 19 21 20 22 21 include "paramet.h" 23 22 24 include "comgeom2.h" 23 25 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3d/caladvtrac.f90
r5271 r5272 13 13 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! … … 26 28 27 29 28 include "paramet.h" 30 29 31 30 32 ! Arguments: -
LMDZ6/trunk/libf/dyn3d/caldyn.f90
r5271 r5272 10 10 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 14 IMPLICIT NONE 13 15 … … 29 31 30 32 31 include "paramet.h" 33 32 34 include "comgeom.h" 33 35 -
LMDZ6/trunk/libf/dyn3d/conf_gcm.f90
r5271 r5272 19 19 20 20 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 22 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 21 23 IMPLICIT NONE 22 24 !----------------------------------------------------------------------- … … 35 37 ! -------------- 36 38 37 include "paramet.h" 39 38 40 include "comdissnew.h" 39 41 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3d/covnat.F90
r5271 r5272 4 4 SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat ) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 19 21 ! 20 22 !======================================================================= 21 22 INCLUDE "paramet.h" 23 INCLUDE "comgeom.h" 23 INCLUDE "comgeom.h" 24 24 25 25 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3d/dissip.f90
r5271 r5272 7 7 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 … … 29 31 30 32 31 include "paramet.h" 33 32 34 include "comgeom.h" 33 35 include "comdissnew.h" -
LMDZ6/trunk/libf/dyn3d/dteta1.f90
r5271 r5272 4 4 SUBROUTINE dteta1 ( teta, pbaru, pbarv, dteta) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 20 22 ! 21 23 !======================================================================= 22 23 include "paramet.h"24 24 25 25 REAL :: teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) -
LMDZ6/trunk/libf/dyn3d/dudv1.F90
r5271 r5272 4 4 SUBROUTINE dudv1 ( vorpot, pbaru, pbarv, du, dv ) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 ! … … 21 23 22 24 23 INCLUDE "paramet.h" 25 24 26 25 27 REAL :: vorpot( ip1jm,llm ) ,pbaru( ip1jmp1,llm ) , & -
LMDZ6/trunk/libf/dyn3d/dudv2.f90
r5271 r5272 4 4 SUBROUTINE dudv2 ( teta, pkf, bern, du, dv ) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 ! … … 25 27 ! 26 28 !======================================================================= 27 include "paramet.h"28 29 29 REAL :: teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ), & 30 30 du( ip1jmp1,llm ), dv( ip1jm,llm ) -
LMDZ6/trunk/libf/dyn3d/dynetat0.f90
r5271 r5272 25 25 26 26 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 27 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 28 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 27 29 IMPLICIT NONE 28 30 29 include "paramet.h" 31 30 32 include "comgeom2.h" 31 33 include "description.h" -
LMDZ6/trunk/libf/dyn3d/dynredem.f90
r5271 r5272 20 20 21 21 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 22 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 23 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 22 24 IMPLICIT NONE 23 25 24 include "paramet.h" 26 25 27 include "comgeom2.h" 26 28 include "description.h" … … 169 171 170 172 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 173 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 174 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 171 175 IMPLICIT NONE 172 176 173 include "paramet.h" 177 174 178 include "description.h" 175 179 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3d/dynredem_mod.f90
r5271 r5272 2 2 USE netcdf 3 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 5 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 4 6 PRIVATE 5 7 PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err 6 8 PUBLIC :: cre_var, put_var1, put_var2, fil, modname, msg 7 include "paramet.h"8 9 CHARACTER(LEN=256), SAVE :: fil, modname 9 10 INTEGER, SAVE :: nvarid -
LMDZ6/trunk/libf/dyn3d/fluxstokenc.f90
r5271 r5272 14 14 ! 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 include "paramet.h" 21 20 22 include "comgeom.h" 21 23 include "tracstoke.h" -
LMDZ6/trunk/libf/dyn3d/friction.f90
r5271 r5272 8 8 USE comconst_mod, ONLY: pi 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 IMPLICIT NONE 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 IMPLICIT NONE 11 13 12 14 !======================================================================= … … 22 24 !======================================================================= 23 25 24 include "paramet.h" 26 25 27 include "comgeom2.h" 26 28 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3d/gcm.f90
r5271 r5272 23 23 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 24 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 25 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 26 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 25 27 IMPLICIT NONE 26 28 … … 54 56 ! Declarations: 55 57 ! ------------- 56 57 include "paramet.h"58 58 include "comdissnew.h" 59 59 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3d/groupe.f90
r5271 r5272 7 7 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 implicit none 10 12 … … 21 23 22 24 23 include "paramet.h" 25 24 26 include "comgeom2.h" 25 27 -
LMDZ6/trunk/libf/dyn3d/groupeun.f90
r5271 r5272 7 7 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 13 12 include "paramet.h" 14 13 15 include "comgeom2.h" 14 16 … … 142 144 143 145 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 146 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 147 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 144 148 IMPLICIT NONE 145 149 146 150 147 include "paramet.h" 151 148 152 include "comgeom2.h" 149 153 -
LMDZ6/trunk/libf/dyn3d/guide_mod.f90
r5271 r5272 20 20 nf90_64bit_offset, nf90_inq_dimid, nf90_inquire_dimension, nf90_put_var 21 21 22 IMPLICIT NONE 22 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 23 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 24 IMPLICIT NONE 23 25 24 26 ! --------------------------------------------- 25 ! Declarations des cles logiques et parametres 27 ! Declarations des cles logiques et parametres 26 28 ! --------------------------------------------- 27 29 INTEGER, PRIVATE, SAVE :: iguide_read,iguide_int,iguide_sav 28 30 INTEGER, PRIVATE, SAVE :: nlevnc, guide_plevs 29 31 LOGICAL, PRIVATE, SAVE :: guide_u,guide_v,guide_T,guide_Q,guide_P 30 LOGICAL, PRIVATE, SAVE :: guide_hr,guide_teta 31 LOGICAL, PRIVATE, SAVE :: guide_BL,guide_reg,guide_add,gamma4,guide_zon 32 LOGICAL, PRIVATE, SAVE :: guide_hr,guide_teta 33 LOGICAL, PRIVATE, SAVE :: guide_BL,guide_reg,guide_add,gamma4,guide_zon 32 34 LOGICAL, PRIVATE, SAVE :: invert_p,invert_y,ini_anal 33 35 LOGICAL, PRIVATE, SAVE :: guide_2D,guide_sav,guide_modele 34 36 !FC 35 37 LOGICAL, PRIVATE, SAVE :: convert_Pa 36 38 37 39 REAL, PRIVATE, SAVE :: tau_min_u,tau_max_u 38 40 REAL, PRIVATE, SAVE :: tau_min_v,tau_max_v … … 47 49 REAL, PRIVATE, SAVE :: plim_guide_BL 48 50 49 REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE :: alpha_u,alpha_v 50 REAL, ALLOCATABLE, DIMENSION(:, :), PRIVATE, SAVE :: alpha_T,alpha_Q 51 REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE :: alpha_u,alpha_v 52 REAL, ALLOCATABLE, DIMENSION(:, :), PRIVATE, SAVE :: alpha_T,alpha_Q 51 53 REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE :: alpha_P,alpha_pcor 52 54 53 55 ! --------------------------------------------- 54 56 ! Variables de guidage … … 82 84 83 85 84 INCLUDE "paramet.h" 86 85 87 86 88 INTEGER :: error,ncidpl,rid,rcod … … 361 363 362 364 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 365 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 366 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 363 367 IMPLICIT NONE 364 368 365 369 366 INCLUDE "paramet.h" 370 367 371 INCLUDE "iniprint.h" 368 372 … … 613 617 614 618 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 619 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 620 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 615 621 IMPLICIT NONE 616 622 617 623 618 INCLUDE "paramet.h" 624 619 625 INCLUDE "comgeom.h" 620 626 … … 680 686 use comvert_mod, only: preff, pressure_exner, bp, ap 681 687 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 688 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 689 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 682 690 IMPLICIT NONE 683 691 684 692 685 include "paramet.h" 693 686 694 include "comgeom2.h" 687 695 … … 931 939 932 940 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 941 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 942 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 933 943 implicit none 934 944 935 945 936 include "paramet.h" 946 937 947 include "comgeom2.h" 938 948 … … 1102 1112 1103 1113 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1114 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1115 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1104 1116 IMPLICIT NONE 1105 1117 1106 1118 1107 include "paramet.h" 1119 1108 1120 1109 1121 INTEGER, INTENT(IN) :: timestep … … 1403 1415 1404 1416 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1417 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1418 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1405 1419 IMPLICIT NONE 1406 1420 1407 1421 1408 include "paramet.h" 1422 1409 1423 1410 1424 INTEGER, INTENT(IN) :: timestep … … 1668 1682 1669 1683 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1684 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1685 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1670 1686 IMPLICIT NONE 1671 1687 1672 1688 1673 INCLUDE "paramet.h" 1689 1674 1690 INCLUDE "comgeom2.h" 1675 1691 -
LMDZ6/trunk/libf/dyn3d/iniacademic.f90
r5271 r5272 27 27 28 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 30 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 29 31 IMPLICIT NONE 30 32 … … 33 35 34 36 35 include "paramet.h" 37 36 38 include "comgeom.h" 37 39 include "academic.h" -
LMDZ6/trunk/libf/dyn3d/integrd.f90
r5271 r5272 14 14 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 … … 33 35 34 36 35 include "paramet.h" 37 36 38 include "comgeom.h" 37 39 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3d/leapfrog.F90
r5271 r5272 25 25 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS 26 26 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 27 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 28 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 27 29 IMPLICIT NONE 28 30 … … 57 59 ! Declarations: 58 60 ! ------------- 59 include "paramet.h"60 61 include "comdissnew.h" 61 62 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3d/paramet_mod_h.f90
r5271 r5272 1 ! 2 ! $Header$ 3 ! 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez n'utiliser que des ! pour les commentaires 7 ! et bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 9 ! 10 ! 11 !----------------------------------------------------------------------- 12 ! INCLUDE 'paramet.h' 1 MODULE paramet_mod_h 2 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 3 14 INTEGER iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1 15 INTEGER kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm 16 INTEGER ijmllm,mvar 17 INTEGER jcfil,jcfllm 4 IMPLICIT NONE; PRIVATE 5 PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 6 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 7 19 PARAMETER( iip1= iim+1,iip2=iim+2,iip3=iim+3 & 20 & ,jjp1=jjm+1-1/jjm) 21 PARAMETER( llmp1 = llm+1, llmp2 = llm+2, llmm1 = llm-1 ) 22 PARAMETER( kftd = iim/2 -ndm ) 23 PARAMETER( ip1jm = iip1*jjm, ip1jmp1= iip1*jjp1 ) 24 PARAMETER( ip1jmi1= ip1jm - iip1 ) 25 PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm ) 26 PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm ) 27 PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm ) 8 INTEGER iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1 9 INTEGER kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm 10 INTEGER ijmllm, mvar 11 INTEGER jcfil, jcfllm 28 12 29 !----------------------------------------------------------------------- 13 PARAMETER(iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3, jjp1 = jjm + 1 - 1 / jjm) 14 PARAMETER(llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1) 15 PARAMETER(kftd = iim / 2 - ndm) 16 PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1) 17 PARAMETER(ip1jmi1 = ip1jm - iip1) 18 PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm) 19 PARAMETER(mvar = ip1jmp1 * (2 * llm + 1) + ijmllm) 20 PARAMETER(jcfil = jjm / 2 + 5, jcfllm = jcfil * llm) 21 END MODULE paramet_mod_h -
LMDZ6/trunk/libf/dyn3d/qminimum.f90
r5271 r5272 7 7 USE strings_mod, ONLY: strIdx 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT none 10 12 ! … … 13 15 ! 14 16 15 include "paramet.h" 17 16 18 ! 17 19 INTEGER :: nqtot -
LMDZ6/trunk/libf/dyn3d/replay3d.f90
r5271 r5272 23 23 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 24 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 25 25 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 26 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 26 27 IMPLICIT NONE 27 28 … … 55 56 ! Declarations: 56 57 ! ------------- 57 include "paramet.h"58 58 include "comdissnew.h" 59 59 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3d/sw_case_williamson91_6.f90
r5271 r5272 30 30 31 31 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 32 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 33 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 32 34 IMPLICIT NONE 33 35 !----------------------------------------------------------------------- … … 36 38 37 39 38 include "paramet.h" 40 39 41 include "comgeom.h" 40 42 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3d/tetaleveli1j.F90
r5271 r5272 8 8 ! USE dimphy 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT none 11 13 … … 46 48 ! REAL ptop, pbot, aist(klon), aisb(klon) 47 49 ! 48 INCLUDE "paramet.h" 50 49 51 ! 50 52 INTEGER :: lt(ip1jm), lb(ip1jm) -
LMDZ6/trunk/libf/dyn3d/tetaleveli1j1.F90
r5271 r5272 8 8 ! USE dimphy 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT none 11 13 … … 46 48 ! REAL ptop, pbot, aist(klon), aisb(klon) 47 49 ! 48 INCLUDE "paramet.h" 50 49 51 ! 50 52 INTEGER :: lt(ip1jmp1), lb(ip1jmp1) -
LMDZ6/trunk/libf/dyn3d/top_bound.F90
r5271 r5272 9 9 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 ! 13 15 14 include "paramet.h" 16 15 17 include "comgeom2.h" 16 18 -
LMDZ6/trunk/libf/dyn3d/vlsplt.F90
r5271 r5272 20 20 ! -------------------------------------------------------------------- 21 21 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 22 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 23 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 22 24 IMPLICIT NONE 23 25 ! 24 26 25 include "paramet.h" 27 26 28 27 29 ! … … 138 140 ! -------------------------------------------------------------------- 139 141 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 142 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 143 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 140 144 IMPLICIT NONE 141 145 ! 142 146 143 include "paramet.h" 147 144 148 include "iniprint.h" 145 149 ! … … 498 502 USE comconst_mod, ONLY: pi 499 503 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 504 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 505 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 500 506 IMPLICIT NONE 501 507 ! 502 508 503 include "paramet.h" 509 504 510 include "comgeom.h" 505 511 ! … … 861 867 ! -------------------------------------------------------------------- 862 868 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 869 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 870 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 863 871 IMPLICIT NONE 864 872 ! 865 873 866 include "paramet.h" 874 867 875 ! 868 876 ! … … 1048 1056 subroutine minmaxq(zq,qmin,qmax,comment) 1049 1057 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1050 INCLUDE "paramet.h" 1058 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1059 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1051 1060 1052 1061 character(len=20) :: comment -
LMDZ6/trunk/libf/dyn3d/vlspltqs.F90
r5271 r5272 27 27 USE logic_mod, ONLY: adv_qsat_liq 28 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 30 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 29 31 IMPLICIT NONE 30 32 ! 31 33 32 include "paramet.h" 34 33 35 34 36 ! … … 192 194 ! -------------------------------------------------------------------- 193 195 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 196 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 197 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 194 198 IMPLICIT NONE 195 199 ! 196 200 197 include "paramet.h" 201 198 202 ! 199 203 ! … … 557 561 558 562 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 563 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 564 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 559 565 IMPLICIT NONE 560 566 ! 561 567 562 include "paramet.h" 568 563 569 include "comgeom.h" 564 570 ! -
LMDZ6/trunk/libf/dyn3d_common/adaptdt.f90
r5271 r5272 7 7 USE comconst_mod, ONLY: dtvr 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 13 12 include "paramet.h" 14 13 15 include "comdissip.h" 14 16 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3d_common/advn.F90
r5271 r5272 16 16 ! -------------------------------------------------------------------- 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 20 IMPLICIT NONE 19 21 ! 20 22 21 include "paramet.h" 23 22 24 include "comgeom.h" 23 25 include "iniprint.h" … … 146 148 ! -------------------------------------------------------------------- 147 149 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 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 148 152 IMPLICIT NONE 149 153 ! 150 154 151 INCLUDE "paramet.h" 155 152 156 INCLUDE "iniprint.h" 153 157 ! … … 264 268 ! -------------------------------------------------------------------- 265 269 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 270 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 271 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 266 272 IMPLICIT NONE 267 273 ! 268 274 269 INCLUDE "paramet.h" 275 270 276 INCLUDE "iniprint.h" 271 277 ! … … 361 367 ! -------------------------------------------------------------------- 362 368 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 369 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 370 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 363 371 IMPLICIT NONE 364 372 ! 365 373 366 INCLUDE "paramet.h" 374 367 375 INCLUDE "iniprint.h" 368 376 ! … … 484 492 ! -------------------------------------------------------------------- 485 493 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 494 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 495 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 486 496 IMPLICIT NONE 487 497 ! 488 498 489 include "paramet.h" 499 490 500 include "iniprint.h" 491 501 ! … … 750 760 ! -------------------------------------------------------------------- 751 761 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 762 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 763 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 752 764 IMPLICIT NONE 753 765 ! 754 766 755 INCLUDE "paramet.h" 767 756 768 INCLUDE "comgeom.h" 757 769 INCLUDE "iniprint.h" … … 882 894 ! -------------------------------------------------------------------- 883 895 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 896 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 897 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 884 898 IMPLICIT NONE 885 899 ! 886 900 887 INCLUDE "paramet.h" 901 888 902 INCLUDE "comgeom.h" 889 903 INCLUDE "iniprint.h" -
LMDZ6/trunk/libf/dyn3d_common/advx.f90
r5271 r5272 5 5 sx,sy,sz,lati,latf) 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 IMPLICIT NONE 8 10 … … 25 27 ! 26 28 27 include "paramet.h" 29 28 30 29 31 ! Arguments : -
LMDZ6/trunk/libf/dyn3d_common/advxp.f90
r5271 r5272 5 5 ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra) 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 IMPLICIT NONE 8 10 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC … … 15 17 ! 16 18 17 include "paramet.h" 19 18 20 19 21 INTEGER :: ntra -
LMDZ6/trunk/libf/dyn3d_common/advy.f90
r5271 r5272 4 4 SUBROUTINE advy(limit,dty,pbarv,sm,s0,sx,sy,sz) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 28 30 ! 29 31 30 include "paramet.h" 32 31 33 include "comgeom2.h" 32 34 -
LMDZ6/trunk/libf/dyn3d_common/advyp.f90
r5271 r5272 5 5 ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra ) 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 IMPLICIT NONE 8 10 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC … … 30 32 ! 31 33 32 include "paramet.h" 34 33 35 include "comgeom.h" 34 36 -
LMDZ6/trunk/libf/dyn3d_common/advz.f90
r5271 r5272 4 4 SUBROUTINE advz(limit,dtz,w,sm,s0,sx,sy,sz) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 23 25 ! 24 26 25 include "paramet.h" 27 26 28 27 29 ! INCLUDE "traceur.h" -
LMDZ6/trunk/libf/dyn3d_common/advzp.f90
r5271 r5272 6 6 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 10 IMPLICIT NONE 9 11 … … 33 35 ! 34 36 35 include "paramet.h" 37 36 38 include "comgeom.h" 37 39 ! -
LMDZ6/trunk/libf/dyn3d_common/bernoui.f90
r5271 r5272 4 4 SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 27 29 ! 28 30 29 include "paramet.h" 31 30 32 ! 31 33 ! Arguments: -
LMDZ6/trunk/libf/dyn3d_common/caldyn0.f90
r5271 r5272 9 9 USE comvert_mod, ONLY: ap, bp 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 13 include "paramet.h" 15 14 16 include "comgeom.h" 15 17 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/convflu.f90
r5271 r5272 19 19 ! 20 20 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 22 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 21 23 IMPLICIT NONE 22 24 ! 23 25 24 INCLUDE "paramet.h" 26 25 27 REAL :: xflu,yflu,convfl,convpn,convps 26 28 INTEGER :: l,ij,nbniv -
LMDZ6/trunk/libf/dyn3d_common/convmas.f90
r5271 r5272 6 6 ! Purpose: Compute mass flux convergence at p levels. 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 10 IMPLICIT NONE 9 11 10 include "paramet.h" 12 11 13 include "comgeom.h" 12 14 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/coordij.f90
r5271 r5272 14 14 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 REAL :: lon,lat … … 20 22 21 23 22 include "paramet.h" 24 23 25 include "comgeom.h" 24 26 -
LMDZ6/trunk/libf/dyn3d_common/covcont.f90
r5271 r5272 7 7 !------------------------------------------------------------------------------- 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 include "paramet.h" 13 12 14 include "comgeom.h" 13 15 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/diagedyn.f90
r5271 r5272 56 56 57 57 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 58 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 59 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 58 60 IMPLICIT NONE 59 61 ! 60 62 61 INCLUDE "paramet.h" 63 62 64 INCLUDE "comgeom.h" 63 65 INCLUDE "iniprint.h" -
LMDZ6/trunk/libf/dyn3d_common/disvert.f90
r5271 r5272 11 11 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 15 17 16 include "paramet.h" 18 17 19 include "iniprint.h" 18 20 -
LMDZ6/trunk/libf/dyn3d_common/disvert_noterre.f90
r5271 r5272 14 14 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 18 20 19 include "paramet.h" 21 20 22 include "iniprint.h" 21 23 ! -
LMDZ6/trunk/libf/dyn3d_common/diverg.f90
r5271 r5272 12 12 ! ********************************************************************* 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! … … 24 26 ! --------------------------------------------------------------------- 25 27 26 INCLUDE "paramet.h" 28 27 29 INCLUDE "comgeom.h" 28 30 ! -
LMDZ6/trunk/libf/dyn3d_common/diverg_gam.f90
r5271 r5272 13 13 ! ********************************************************************* 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! … … 25 27 ! --------------------------------------------------------------------- 26 28 27 INCLUDE "paramet.h" 29 28 30 INCLUDE "comgeom.h" 29 31 ! -
LMDZ6/trunk/libf/dyn3d_common/divergf.f90
r5271 r5272 12 12 ! ********************************************************************* 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! … … 24 26 ! --------------------------------------------------------------------- 25 27 26 INCLUDE "paramet.h" 28 27 29 INCLUDE "comgeom.h" 28 30 ! -
LMDZ6/trunk/libf/dyn3d_common/divergst.f90
r5271 r5272 4 4 SUBROUTINE divergst(klevel,x,y,div) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 6 9 IMPLICIT NONE 7 10 ! … … 18 21 ! ------------------------------------------------------------------- 19 22 ! 20 INCLUDE "paramet.h"21 23 INCLUDE "comgeom.h" 22 24 -
LMDZ6/trunk/libf/dyn3d_common/divgrad.f90
r5271 r5272 4 4 SUBROUTINE divgrad (klevel,h, lh, divgra ) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 ! … … 22 24 ! 23 25 24 include "paramet.h" 26 25 27 include "comgeom.h" 26 28 include "comdissipn.h" -
LMDZ6/trunk/libf/dyn3d_common/divgrad2.f90
r5271 r5272 14 14 ! 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 INCLUDE "paramet.h" 21 20 22 INCLUDE "comgeom2.h" 21 23 INCLUDE "comdissipn.h" -
LMDZ6/trunk/libf/dyn3d_common/ener_mod.f90
r5271 r5272 5 5 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 IMPLICIT NONE 8 10 9 11 10 include "paramet.h" 12 11 13 12 14 REAL ang0,etot0,ptot0,ztot0,stot0, & -
LMDZ6/trunk/libf/dyn3d_common/enercin.f90
r5271 r5272 6 6 ! Purpose: Compute kinetic energy at sigma levels. 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 10 IMPLICIT NONE 9 11 10 include "paramet.h" 12 11 13 include "comgeom.h" 12 14 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/exner_hyb_m.f90
r5271 r5272 37 37 38 38 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 39 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 40 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 39 41 IMPLICIT NONE 40 42 41 43 42 include "paramet.h" 44 43 45 include "comgeom.h" 44 46 -
LMDZ6/trunk/libf/dyn3d_common/exner_milieu_m.f90
r5271 r5272 34 34 35 35 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 36 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 37 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 36 38 IMPLICIT NONE 37 39 38 40 39 include "paramet.h" 41 40 42 include "comgeom.h" 41 43 -
LMDZ6/trunk/libf/dyn3d_common/flumass.f90
r5271 r5272 6 6 ! Purpose: Compute mass flux at s levels. 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 10 IMPLICIT NONE 9 11 10 include "paramet.h" 12 11 13 include "comgeom.h" 12 14 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/fxy.f90
r5271 r5272 10 10 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 14 IMPLICIT NONE 13 15 … … 19 21 ! 20 22 21 include "paramet.h" 23 22 24 23 25 INTEGER :: i,j -
LMDZ6/trunk/libf/dyn3d_common/fxysinus.f90
r5271 r5272 9 9 USE comconst_mod, ONLY: pi 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 ! … … 18 20 ! 19 21 20 INCLUDE "paramet.h" 22 21 23 22 24 INTEGER :: i,j -
LMDZ6/trunk/libf/dyn3d_common/geopot.f90
r5271 r5272 4 4 SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi ) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 6 9 IMPLICIT NONE 7 10 … … 27 30 ! Declarations: 28 31 ! ------------- 29 30 31 include "paramet.h"32 32 33 33 ! Arguments: -
LMDZ6/trunk/libf/dyn3d_common/gr_u_scal.f90
r5271 r5272 26 26 !======================================================================= 27 27 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 28 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 29 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 28 30 IMPLICIT NONE 29 31 !----------------------------------------------------------------------- … … 32 34 33 35 34 INCLUDE "paramet.h" 36 35 37 INCLUDE "comgeom.h" 36 38 -
LMDZ6/trunk/libf/dyn3d_common/gr_v_scal.f90
r5271 r5272 26 26 !======================================================================= 27 27 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 28 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 29 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 28 30 IMPLICIT NONE 29 31 !----------------------------------------------------------------------- … … 32 34 33 35 34 INCLUDE "paramet.h" 36 35 37 INCLUDE "comgeom.h" 36 38 -
LMDZ6/trunk/libf/dyn3d_common/grad.f90
r5271 r5272 14 14 ! 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 INCLUDE "paramet.h" 21 20 22 INTEGER :: klevel 21 23 REAL :: pg( ip1jmp1,klevel ) -
LMDZ6/trunk/libf/dyn3d_common/gradiv.f90
r5271 r5272 18 18 ! 19 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 21 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 20 22 IMPLICIT NONE 21 23 ! 22 24 23 include "paramet.h" 25 24 26 include "comdissipn.h" 25 27 -
LMDZ6/trunk/libf/dyn3d_common/gradiv2.f90
r5271 r5272 17 17 ! 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 ! 21 23 22 INCLUDE "paramet.h" 24 23 25 INCLUDE "comgeom.h" 24 26 INCLUDE "comdissipn.h" -
LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.f90
r5271 r5272 18 18 19 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 21 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 20 22 IMPLICIT NONE 21 23 22 24 23 INCLUDE "paramet.h" 25 24 26 INCLUDE "comgeom.h" 25 27 -
LMDZ6/trunk/libf/dyn3d_common/iniconst.f90
r5271 r5272 12 12 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! … … 20 22 ! 21 23 22 include "paramet.h" 24 23 25 include "iniprint.h" 24 26 -
LMDZ6/trunk/libf/dyn3d_common/inidissip.f90
r5271 r5272 17 17 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 21 include "paramet.h" 23 22 24 include "comdissipn.h" 23 25 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3d_common/inigeom.f90
r5271 r5272 23 23 alphax,alphay,taux,tauy,transx,transy,pxo,pyo 24 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 25 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 26 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 25 27 IMPLICIT NONE 26 28 ! 27 29 28 include "paramet.h" 30 29 31 include "comgeom2.h" 30 32 include "comdissnew.h" -
LMDZ6/trunk/libf/dyn3d_common/initdynav.f90
r5271 r5272 12 12 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 implicit none 15 17 … … 36 38 37 39 38 include "paramet.h" 40 39 41 include "comgeom.h" 40 42 include "description.h" -
LMDZ6/trunk/libf/dyn3d_common/initfluxsto.f90
r5271 r5272 12 12 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 implicit none 15 17 … … 42 44 ! Declarations 43 45 44 include "paramet.h" 46 45 47 include "comgeom.h" 46 48 include "description.h" -
LMDZ6/trunk/libf/dyn3d_common/inithist.f90
r5271 r5272 13 13 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 implicit none 16 18 … … 41 43 ! Declarations 42 44 43 include "paramet.h" 45 44 46 include "comgeom.h" 45 47 include "description.h" -
LMDZ6/trunk/libf/dyn3d_common/inter_barxy_m.f90
r5271 r5272 7 7 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 implicit none 10 12 … … 22 24 ! (for "iim", "jjm") 23 25 24 include "paramet.h" 26 25 27 ! (for other included files) 26 28 -
LMDZ6/trunk/libf/dyn3d_common/interpost.f90
r5271 r5272 5 5 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 implicit none 8 10 9 11 10 12 11 include "paramet.h" 13 12 14 include "comgeom2.h" 13 15 -
LMDZ6/trunk/libf/dyn3d_common/interpre.f90
r5271 r5272 10 10 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 14 implicit none 13 15 14 16 15 include "paramet.h" 17 16 18 include "comdissip.h" 17 19 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3d_common/laplacien.f90
r5271 r5272 13 13 ! 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "comgeom.h" 20 22 -
LMDZ6/trunk/libf/dyn3d_common/laplacien_gam.f90
r5271 r5272 15 15 ! 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 18 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 17 19 IMPLICIT NONE 18 20 ! 19 21 20 INCLUDE "paramet.h" 22 21 23 INCLUDE "comgeom.h" 22 24 -
LMDZ6/trunk/libf/dyn3d_common/laplacien_rot.f90
r5271 r5272 14 14 ! 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 INCLUDE "paramet.h" 21 20 22 INCLUDE "comgeom.h" 21 23 -
LMDZ6/trunk/libf/dyn3d_common/laplacien_rotgam.f90
r5271 r5272 13 13 ! 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "comgeom.h" 20 22 -
LMDZ6/trunk/libf/dyn3d_common/limx.f90
r5271 r5272 14 14 ! -------------------------------------------------------------------- 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 include "paramet.h" 21 20 22 include "comgeom.h" 21 23 ! -
LMDZ6/trunk/libf/dyn3d_common/limy.f90
r5271 r5272 16 16 USE comconst_mod, ONLY: pi 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 20 IMPLICIT NONE 19 21 ! 20 22 21 include "paramet.h" 23 22 24 include "comgeom.h" 23 25 ! -
LMDZ6/trunk/libf/dyn3d_common/limz.f90
r5271 r5272 14 14 ! -------------------------------------------------------------------- 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 include "paramet.h" 21 20 22 include "comgeom.h" 21 23 ! -
LMDZ6/trunk/libf/dyn3d_common/massbar.f90
r5271 r5272 7 7 ! See iniconst for more details. 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 include "paramet.h" 13 12 14 include "comgeom.h" 13 15 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/massbarxy.f90
r5271 r5272 7 7 ! See iniconst for more details. 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 include "paramet.h" 13 12 14 include "comgeom.h" 13 15 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/massdair.f90
r5271 r5272 17 17 ! 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 ! 21 23 22 include "paramet.h" 24 23 25 include "comgeom.h" 24 26 ! -
LMDZ6/trunk/libf/dyn3d_common/nxgrad.f90
r5271 r5272 13 13 ! 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "comgeom.h" 20 22 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3d_common/nxgrad_gam.f90
r5271 r5272 13 13 ! 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "comgeom.h" 20 22 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3d_common/nxgradst.f90
r5271 r5272 3 3 ! 4 4 SUBROUTINE nxgradst (klevel,rot, x, y ) 5 !6 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 8 IMPLICIT NONE 8 9 ! Auteur : P. Le Van … … 15 16 ! 16 17 17 INCLUDE "paramet.h"18 18 INCLUDE "comgeom.h" 19 19 -
LMDZ6/trunk/libf/dyn3d_common/nxgraro2.f90
r5271 r5272 16 16 ! 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 20 IMPLICIT NONE 19 21 ! 20 22 21 INCLUDE "paramet.h" 23 22 24 INCLUDE "comdissipn.h" 23 25 ! -
LMDZ6/trunk/libf/dyn3d_common/nxgrarot.f90
r5271 r5272 17 17 ! 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 ! 21 23 ! 22 24 23 include "paramet.h" 25 24 26 include "comdissipn.h" 25 27 ! -
LMDZ6/trunk/libf/dyn3d_common/pbar.f90
r5271 r5272 4 4 SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy ) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 75 77 !======================================================================= 76 78 77 78 79 INCLUDE "paramet.h"80 81 79 INCLUDE "comgeom.h" 82 80 -
LMDZ6/trunk/libf/dyn3d_common/pentes_ini.f90
r5271 r5272 3 3 ! 4 4 SUBROUTINE pentes_ini (q,w,masse,pbaru,pbarv,mode) 5 6 5 USE comconst_mod, ONLY: pi, dtvr 7 8 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 9 IMPLICIT NONE 10 10 … … 24 24 ! 25 25 !======================================================================= 26 27 28 29 include "paramet.h"30 26 include "comgeom2.h" 31 27 -
LMDZ6/trunk/libf/dyn3d_common/prather.f90
r5271 r5272 3 3 ! 4 4 SUBROUTINE prather (q,w,masse,pbaru,pbarv,nt,dt) 5 6 5 USE comconst_mod, ONLY: pi 7 8 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 9 IMPLICIT NONE 10 10 … … 21 21 ! 22 22 !======================================================================= 23 24 25 26 include "paramet.h"27 23 include "comgeom2.h" 28 24 -
LMDZ6/trunk/libf/dyn3d_common/pression.f90
r5271 r5272 9 9 !------------------------------------------------------------------------------- 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 13 include "paramet.h" 15 14 16 !=============================================================================== 15 17 ! Arguments: -
LMDZ6/trunk/libf/dyn3d_common/psextbar.f90
r5271 r5272 4 4 SUBROUTINE psextbar ( ps, psexbarxy ) 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 74 76 ! 75 77 !======================================================================= 76 77 78 79 INCLUDE "paramet.h"80 78 INCLUDE "comgeom.h" 81 79 -
LMDZ6/trunk/libf/dyn3d_common/rotat.f90
r5271 r5272 14 14 ! 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 INCLUDE "paramet.h" 21 20 22 INCLUDE "comgeom.h" 21 23 ! -
LMDZ6/trunk/libf/dyn3d_common/rotat_nfil.f90
r5271 r5272 14 14 ! 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 19 INCLUDE "paramet.h" 21 20 22 INCLUDE "comgeom.h" 21 23 ! -
LMDZ6/trunk/libf/dyn3d_common/rotatf.f90
r5271 r5272 15 15 ! 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 18 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 17 19 IMPLICIT NONE 18 20 ! 19 21 20 INCLUDE "paramet.h" 22 21 23 INCLUDE "comgeom.h" 22 24 ! -
LMDZ6/trunk/libf/dyn3d_common/rotatst.f90
r5271 r5272 14 14 ! 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 ! 18 20 INTEGER :: klevel 19 21 20 INCLUDE "paramet.h" 22 21 23 22 24 REAL :: rot( ip1jm,klevel ) -
LMDZ6/trunk/libf/dyn3d_common/sortvarc.f90
r5271 r5272 13 13 rmsdpdt,rmsv 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 … … 32 34 33 35 34 INCLUDE "paramet.h" 36 35 37 INCLUDE "comgeom.h" 36 38 INCLUDE "iniprint.h" -
LMDZ6/trunk/libf/dyn3d_common/test_period.f90
r5271 r5272 10 10 ! 11 11 USE infotrac, ONLY : nqtot 12 ! 13 ! USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE dimensions_mod, ONLY: iim, llm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 15 IMPLICIT NONE 15 !16 17 INCLUDE "paramet.h"18 16 ! 19 17 ! ...... Arguments ...... -
LMDZ6/trunk/libf/dyn3d_common/tourpot.f90
r5271 r5272 6 6 ! Purpose: Compute potential vorticity. 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 10 IMPLICIT NONE 9 11 10 include "paramet.h" 12 11 13 include "comgeom.h" 12 14 !=============================================================================== -
LMDZ6/trunk/libf/dyn3d_common/traceurpole.f90
r5271 r5272 5 5 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 implicit none 8 10 9 11 10 include "paramet.h" 12 11 13 include "comdissip.h" 12 14 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3d_common/ugeostr.f90
r5271 r5272 14 14 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 implicit none 17 19 18 20 19 include "paramet.h" 21 20 22 include "comgeom2.h" 21 23 -
LMDZ6/trunk/libf/dyn3d_common/vitvert.f90
r5271 r5272 7 7 USE comvert_mod, ONLY: bp 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 include "paramet.h" 13 12 14 !=============================================================================== 13 15 ! Arguments: -
LMDZ6/trunk/libf/dyn3d_common/writedynav.f90
r5271 r5272 9 9 USE temps_mod, ONLY: itau_dyn 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 implicit none 12 14 … … 30 32 ! Declarations 31 33 32 include "paramet.h" 34 33 35 include "comgeom.h" 34 36 include "description.h" -
LMDZ6/trunk/libf/dyn3d_common/writehist.f90
r5271 r5272 8 8 USE temps_mod, ONLY: itau_dyn 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 implicit none 11 13 … … 32 34 ! 33 35 ! Declarations 34 include "paramet.h" 36 35 37 include "comgeom.h" 36 38 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/addfi_loc.f90
r5271 r5272 9 9 USE control_mod, ONLY : planet_type 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 ! … … 46 48 ! 0. Declarations : 47 49 ! ------------------ 48 !49 include "paramet.h"50 50 include "comgeom.h" 51 51 ! -
LMDZ6/trunk/libf/dyn3dmem/advect_new_loc.f90
r5271 r5272 11 11 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 !======================================================================= … … 30 32 ! Declarations: 31 33 ! ------------- 32 33 34 include "paramet.h"35 34 include "comgeom.h" 36 35 -
LMDZ6/trunk/libf/dyn3dmem/advect_new_mod.f90
r5271 r5272 17 17 USE allocate_field_mod 18 18 USE parallel_lmdz 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 IMPLICIT NONE 20 21 TYPE(distrib),POINTER :: d 21 22 -
LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.f90
r5271 r5272 22 22 USE strings_mod, ONLY: int2str 23 23 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 24 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 25 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 24 26 IMPLICIT NONE 25 27 ! 26 28 27 include "paramet.h" 29 28 30 include "comdissip.h" 29 31 include "comgeom2.h" -
LMDZ6/trunk/libf/dyn3dmem/advtrac_mod.f90
r5271 r5272 11 11 USE vlspltgen_mod 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 15 INCLUDE "paramet.h" 17 16 18 TYPE(distrib),POINTER :: d 17 19 -
LMDZ6/trunk/libf/dyn3dmem/allocate_field_mod.f90
r5271 r5272 1 1 MODULE allocate_field_mod 2 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 3 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 4 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 5 6 IMPLICIT NONE; PRIVATE 7 PUBLIC allocate_u, switch_u, switch_v, allocate_v, allocate2d_u, allocate2d_v, & 8 switch2d_u, switch2d_v, init_nan 2 9 3 10 INTERFACE allocate_u … … 158 165 SUBROUTINE allocate1d_u2d(field,d) 159 166 USE parallel_lmdz 160 USE dimensions_mod, ONLY: iim, jjm, llm, ndmIMPLICIT NONE167 IMPLICIT NONE 161 168 REAL,POINTER :: field(:,:) 162 169 TYPE(distrib),INTENT(IN) :: d … … 174 181 SUBROUTINE allocate2d_u2d(field,dim1,d) 175 182 USE parallel_lmdz 176 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 183 184 IMPLICIT NONE 177 185 REAL,POINTER :: field(:,:,:) 178 186 INTEGER :: dim1 … … 190 198 SUBROUTINE allocate3d_u2d(field,dim1,dim2,d) 191 199 USE parallel_lmdz 192 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 200 201 IMPLICIT NONE 193 202 REAL,POINTER :: field(:,:,:,:) 194 203 INTEGER :: dim1,dim2 … … 208 217 SUBROUTINE allocate1d_v2d(field,d) 209 218 USE parallel_lmdz 210 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 219 220 IMPLICIT NONE 211 221 REAL,POINTER :: field(:,:) 212 222 TYPE(distrib),INTENT(IN) :: d … … 224 234 SUBROUTINE allocate2d_v2d(field,dim1,d) 225 235 USE parallel_lmdz 226 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 236 237 IMPLICIT NONE 227 238 REAL,POINTER :: field(:,:,:) 228 239 INTEGER :: dim1 … … 240 251 SUBROUTINE allocate3d_v2d(field,dim1,dim2,d) 241 252 USE parallel_lmdz 242 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 253 254 IMPLICIT NONE 243 255 REAL,POINTER :: field(:,:,:,:) 244 256 INTEGER :: dim1,dim2 … … 505 517 USE parallel_lmdz 506 518 USE mod_hallo 507 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 519 520 IMPLICIT NONE 508 521 REAL,POINTER :: field(:,:) 509 522 TYPE(distrib),INTENT(IN) :: old_dist … … 541 554 USE parallel_lmdz 542 555 USE mod_hallo 543 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 556 557 IMPLICIT NONE 544 558 REAL,POINTER :: field(:,:,:) 545 559 TYPE(distrib),INTENT(IN) :: old_dist … … 577 591 USE parallel_lmdz 578 592 USE mod_hallo 579 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 593 594 IMPLICIT NONE 580 595 REAL,POINTER :: field(:,:,:,:) 581 596 TYPE(distrib),INTENT(IN) :: old_dist … … 616 631 USE parallel_lmdz 617 632 USE mod_hallo 618 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 633 634 IMPLICIT NONE 619 635 REAL,POINTER :: field(:,:) 620 636 TYPE(distrib),INTENT(IN) :: old_dist … … 652 668 USE parallel_lmdz 653 669 USE mod_hallo 654 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 670 671 IMPLICIT NONE 655 672 REAL,POINTER :: field(:,:,:) 656 673 TYPE(distrib),INTENT(IN) :: old_dist … … 688 705 USE parallel_lmdz 689 706 USE mod_hallo 690 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 707 708 IMPLICIT NONE 691 709 REAL,POINTER :: field(:,:,:,:) 692 710 TYPE(distrib),INTENT(IN) :: old_dist -
LMDZ6/trunk/libf/dyn3dmem/bernoui_loc.f90
r5271 r5272 3 3 USE mod_filtreg_p 4 4 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 5 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 6 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 5 7 IMPLICIT NONE 6 8 … … 26 28 ! 27 29 28 include "paramet.h" 30 29 31 ! 30 32 ! Arguments: -
LMDZ6/trunk/libf/dyn3dmem/bilan_dyn_loc.f90
r5271 r5272 20 20 21 21 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 22 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 23 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 22 24 IMPLICIT NONE 23 25 24 26 25 include "paramet.h" 27 26 28 include "comgeom2.h" 27 29 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3dmem/caladvtrac_loc.f90
r5271 r5272 18 18 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 19 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 21 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 20 22 IMPLICIT NONE 21 23 ! … … 31 33 32 34 33 include "paramet.h" 35 34 36 35 37 ! Arguments: -
LMDZ6/trunk/libf/dyn3dmem/caladvtrac_mod.f90
r5271 r5272 35 35 USE groupe_mod 36 36 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 37 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 38 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 37 39 IMPLICIT NONE 38 40 39 INCLUDE "paramet.h" 41 40 42 TYPE(distrib),POINTER :: d 41 43 -
LMDZ6/trunk/libf/dyn3dmem/caldyn_loc.f90
r5271 r5272 9 9 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 … … 28 30 29 31 30 include "paramet.h" 32 31 33 include "comgeom.h" 32 34 -
LMDZ6/trunk/libf/dyn3dmem/caldyn_mod.f90
r5271 r5272 15 15 16 16 17 17 18 18 CONTAINS 19 19 … … 22 22 USE allocate_field_mod 23 23 USE parallel_lmdz 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE advect_new_mod,ONLY : advect_new_allocate 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 25 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 26 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 27 USE advect_new_mod, ONLY : advect_new_allocate 25 28 IMPLICIT NONE 26 29 TYPE(distrib),POINTER :: d … … 40 43 CALL allocate_v(massebxy,llm,d) 41 44 CALL allocate_u(convm,llm,d) 42 45 43 46 CALL advect_new_allocate 44 47 45 48 END SUBROUTINE caldyn_allocate 46 49 47 50 SUBROUTINE caldyn_switch_caldyn(dist) 48 51 USE allocate_field_mod … … 65 68 CALL switch_v(massebxy,distrib_caldyn,dist) 66 69 CALL switch_u(convm,distrib_caldyn,dist) 67 70 68 71 CALL advect_new_switch_caldyn(dist) 69 72 70 73 END SUBROUTINE caldyn_switch_caldyn 71 72 74 73 74 END MODULE caldyn_mod 75 76 77 END MODULE caldyn_mod -
LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.f90
r5271 r5272 36 36 USE allocate_field_mod 37 37 USE parallel_lmdz 38 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE infotrac, ONLY: nqtot 38 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 39 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 40 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 41 USE infotrac, ONLY: nqtot 39 42 IMPLICIT NONE 40 43 TYPE(distrib),POINTER :: d … … 71 74 SUBROUTINE call_calfis(itau,lafin,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, & 72 75 phis_dyn,q_dyn,flxw_dyn) 73 USE dimensions_mod, ONLY: iim, jjm, llm, ndm use exner_hyb_loc_m, only: exner_hyb_loc 76 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 77 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 78 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 79 USE exner_hyb_loc_m, only: exner_hyb_loc 74 80 use exner_milieu_loc_m, only: exner_milieu_loc 75 81 USE parallel_lmdz -
LMDZ6/trunk/libf/dyn3dmem/call_dissip_mod.f90
r5271 r5272 24 24 USE allocate_field_mod 25 25 USE parallel_lmdz 26 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE dissip_mod, ONLY : dissip_allocate 26 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 27 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 28 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 29 USE dissip_mod, ONLY : dissip_allocate 27 30 IMPLICIT NONE 28 31 TYPE(distrib),POINTER :: d … … 79 82 80 83 SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn) 81 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE parallel_lmdz 84 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 85 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 86 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 87 USE parallel_lmdz 82 88 USE times 83 89 USE mod_hallo -
LMDZ6/trunk/libf/dyn3dmem/conf_gcm.F90
r5271 r5272 24 24 25 25 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 26 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 27 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 26 28 IMPLICIT NONE 27 29 !----------------------------------------------------------------------- … … 40 42 ! -------------- 41 43 42 include "paramet.h" 44 43 45 include "comdissnew.h" 44 46 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3dmem/convflu_loc.f90
r5271 r5272 17 17 USE parallel_lmdz 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 ! 21 23 22 INCLUDE "paramet.h" 24 23 25 REAL :: xflu,yflu,convfl,convpn,convps 24 26 INTEGER :: l,ij,nbniv -
LMDZ6/trunk/libf/dyn3dmem/convmas1_loc.f90
r5271 r5272 9 9 USE mod_filtreg_p 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 13 include "paramet.h" 15 14 16 include "comgeom.h" 15 17 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/convmas2_loc.f90
r5271 r5272 8 8 USE parallel_lmdz 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT NONE 11 13 12 include "paramet.h" 14 13 15 include "comgeom.h" 14 16 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/convmas_loc.f90
r5271 r5272 8 8 USE mod_filtreg_p 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT NONE 11 13 12 include "paramet.h" 14 13 15 include "comgeom.h" 14 16 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/covcont_loc.f90
r5271 r5272 2 2 USE parallel_lmdz 3 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 5 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 4 6 IMPLICIT NONE 5 7 … … 17 19 ! 18 20 !======================================================================= 19 20 21 INCLUDE "paramet.h"22 21 INCLUDE "comgeom.h" 23 22 -
LMDZ6/trunk/libf/dyn3dmem/covnat_loc.f90
r5271 r5272 5 5 USE parallel_lmdz 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 IMPLICIT NONE 8 10 … … 20 22 ! 21 23 !======================================================================= 22 23 24 INCLUDE "paramet.h"25 24 INCLUDE "comgeom.h" 26 25 -
LMDZ6/trunk/libf/dyn3dmem/dissip_loc.f90
r5271 r5272 10 10 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 14 IMPLICIT NONE 13 15 … … 32 34 33 35 34 include "paramet.h" 36 35 37 include "comgeom.h" 36 38 include "comdissnew.h" -
LMDZ6/trunk/libf/dyn3dmem/dissip_mod.f90
r5271 r5272 9 9 USE allocate_field_mod 10 10 USE parallel_lmdz 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE gradiv2_mod, ONLY : gradiv2_allocate 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE gradiv2_mod, ONLY : gradiv2_allocate 12 13 USE nxgraro2_mod, ONLY : nxgraro2_allocate 13 14 USE divgrad2_mod, ONLY : divgrad2_allocate -
LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.f90
r5271 r5272 11 11 USE parallel_lmdz 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 ! … … 23 25 ! --------------------------------------------------------------------- 24 26 25 INCLUDE "paramet.h" 27 26 28 INCLUDE "comgeom.h" 27 29 ! -
LMDZ6/trunk/libf/dyn3dmem/diverg_p.f90
r5271 r5272 10 10 USE parallel_lmdz 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 14 IMPLICIT NONE 13 15 ! … … 22 24 ! --------------------------------------------------------------------- 23 25 24 INCLUDE "paramet.h" 26 25 27 INCLUDE "comgeom.h" 26 28 ! -
LMDZ6/trunk/libf/dyn3dmem/divergf_loc.f90
r5271 r5272 11 11 USE mod_filtreg_p 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 ! … … 23 25 ! --------------------------------------------------------------------- 24 26 25 INCLUDE "paramet.h" 27 26 28 INCLUDE "comgeom.h" 27 29 ! -
LMDZ6/trunk/libf/dyn3dmem/divgrad2_loc.f90
r5271 r5272 15 15 USE divgrad2_mod 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 18 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 17 19 IMPLICIT NONE 18 20 ! 19 21 20 INCLUDE "paramet.h" 22 21 23 INCLUDE "comgeom2.h" 22 24 INCLUDE "comdissipn.h" -
LMDZ6/trunk/libf/dyn3dmem/divgrad2_mod.f90
r5271 r5272 9 9 USE allocate_field_mod 10 10 USE parallel_lmdz 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 IMPLICIT NONE 12 13 TYPE(distrib),POINTER :: d 13 14 d=>distrib_dissip -
LMDZ6/trunk/libf/dyn3dmem/dteta1_loc.f90
r5271 r5272 4 4 USE mod_filtreg_p 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 … … 20 22 ! 21 23 !======================================================================= 22 23 24 25 include "paramet.h"26 27 24 REAL :: teta( ijb_u:ije_u,llm ) 28 25 REAL :: pbaru( ijb_u:ije_u,llm ),pbarv( ijb_v:ije_v,llm) -
LMDZ6/trunk/libf/dyn3dmem/dudv1_loc.f90
r5271 r5272 2 2 USE parallel_lmdz 3 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 5 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 4 6 IMPLICIT NONE 5 7 ! … … 19 21 20 22 21 INCLUDE "paramet.h" 23 22 24 23 25 REAL :: vorpot( ijb_v:ije_v,llm ) ,pbaru( ijb_u:ije_u,llm ) , & -
LMDZ6/trunk/libf/dyn3dmem/dudv2_loc.f90
r5271 r5272 2 2 USE parallel_lmdz 3 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 5 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 4 6 IMPLICIT NONE 5 7 ! … … 24 26 !======================================================================= 25 27 ! 26 27 include "paramet.h"28 29 28 REAL :: teta( ijb_u:ije_u,llm ),pkf( ijb_u:ije_u,llm ) 30 29 REAL :: bern( ijb_u:ije_u,llm ) -
LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.f90
r5271 r5272 25 25 26 26 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 27 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 28 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 27 29 IMPLICIT NONE 28 30 29 include "paramet.h" 31 30 32 include "comgeom.h" 31 33 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.f90
r5271 r5272 23 23 24 24 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 25 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 26 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 25 27 IMPLICIT NONE 26 28 27 include "paramet.h" 29 28 30 include "comgeom.h" 29 31 include "description.h" … … 178 180 179 181 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 182 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 183 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 180 184 IMPLICIT NONE 181 185 182 include "paramet.h" 186 183 187 include "description.h" 184 188 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/dynredem_mod.f90
r5271 r5272 1 1 MODULE dynredem_mod 2 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE parallel_lmdz 2 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 3 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 4 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 5 USE parallel_lmdz 4 6 USE mod_hallo 5 7 USE netcdf … … 9 11 CHARACTER(LEN=256), SAVE :: fil, modname 10 12 INTEGER, SAVE :: nvarid 11 12 13 13 14 CONTAINS … … 58 59 !$OMP END MASTER 59 60 !$OMP BARRIER 60 61 61 62 END SUBROUTINE dynredem_write_u 62 63 ! … … 108 109 !$OMP END MASTER 109 110 !$OMP BARRIER 110 111 111 112 END SUBROUTINE dynredem_write_v 112 113 ! … … 154 155 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 155 156 DO l=1,ll; var(:,l)=var_tmp(:,l); END DO 156 157 157 158 !$OMP BARRIER 158 159 !$OMP MASTER … … 160 161 !$OMP END MASTER 161 162 !$OMP BARRIER 162 163 END SUBROUTINE dynredem_read_u 163 164 END SUBROUTINE dynredem_read_u 164 165 ! 165 166 !=============================================================================== … … 265 266 !=============================================================================== 266 267 267 END MODULE dynredem_mod 268 269 270 268 END MODULE dynredem_mod 269 270 271 -
LMDZ6/trunk/libf/dyn3dmem/enercin_loc.f90
r5271 r5272 7 7 USE parallel_lmdz 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 include "paramet.h" 13 12 14 include "comgeom.h" 13 15 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/exner_hyb_loc_m.f90
r5271 r5272 39 39 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 40 40 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 41 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 42 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 41 43 IMPLICIT NONE 42 44 ! 43 45 44 include "paramet.h" 46 45 47 include "comgeom.h" 46 48 -
LMDZ6/trunk/libf/dyn3dmem/exner_milieu_loc_m.f90
r5271 r5272 35 35 36 36 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 37 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 38 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 37 39 IMPLICIT NONE 38 40 ! 39 41 40 include "paramet.h" 42 41 43 include "comgeom.h" 42 44 -
LMDZ6/trunk/libf/dyn3dmem/flumass_loc.f90
r5271 r5272 7 7 USE parallel_lmdz 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 11 include "paramet.h" 13 12 14 include "comgeom.h" 13 15 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/fluxstokenc_p.f90
r5271 r5272 17 17 ! 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 ! … … 29 31 30 32 31 include "paramet.h" 33 32 34 include "tracstoke.h" 33 35 -
LMDZ6/trunk/libf/dyn3dmem/friction_loc.f90
r5271 r5272 9 9 USE comconst_mod, ONLY: pi 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 IMPLICIT NONE 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 IMPLICIT NONE 12 14 13 15 !======================================================================= … … 23 25 !======================================================================= 24 26 25 include "paramet.h" 27 26 28 include "comgeom2.h" 27 29 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3dmem/gcm.F90
r5271 r5272 26 26 USE mod_xios_dyn3dmem, ONLY: xios_dyn3dmem_init 27 27 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS 28 29 30 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 30 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 31 31 IMPLICIT NONE 32 32 … … 60 60 ! Declarations: 61 61 ! ------------- 62 63 include "paramet.h"64 62 include "comdissnew.h" 65 63 include "comgeom.h" -
LMDZ6/trunk/libf/dyn3dmem/geopot_loc.f90
r5271 r5272 2 2 USE parallel_lmdz 3 3 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 4 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 5 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 4 6 IMPLICIT NONE 5 6 7 7 !======================================================================= 8 8 ! … … 24 24 !======================================================================= 25 25 !----------------------------------------------------------------------- 26 ! Declarations:27 ! -------------28 29 30 include "paramet.h"31 26 32 27 ! Arguments: -
LMDZ6/trunk/libf/dyn3dmem/gr_u_scal_loc.f90
r5271 r5272 27 27 USE parallel_lmdz 28 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 30 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 29 31 IMPLICIT NONE 30 32 !----------------------------------------------------------------------- … … 33 35 34 36 35 INCLUDE "paramet.h" 37 36 38 INCLUDE "comgeom.h" 37 39 -
LMDZ6/trunk/libf/dyn3dmem/gr_v_scal_loc.f90
r5271 r5272 27 27 USE parallel_lmdz 28 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 30 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 29 31 IMPLICIT NONE 30 32 !----------------------------------------------------------------------- … … 33 35 34 36 35 INCLUDE "paramet.h" 37 36 38 INCLUDE "comgeom.h" 37 39 -
LMDZ6/trunk/libf/dyn3dmem/grad_loc.f90
r5271 r5272 12 12 USE parallel_lmdz 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! 16 18 17 INCLUDE "paramet.h" 19 18 20 INTEGER :: klevel 19 21 REAL :: pg( ijb_u:ije_u,klevel ) -
LMDZ6/trunk/libf/dyn3dmem/grad_p.f90
r5271 r5272 12 12 USE parallel_lmdz 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! 16 18 17 INCLUDE "paramet.h" 19 18 20 INTEGER :: klevel 19 21 REAL :: pg( ip1jmp1,klevel ) -
LMDZ6/trunk/libf/dyn3dmem/gradiv2_loc.f90
r5271 r5272 20 20 USE gradiv2_mod 21 21 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 22 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 23 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 22 24 IMPLICIT NONE 23 25 ! 24 26 25 INCLUDE "paramet.h" 27 26 28 INCLUDE "comgeom.h" 27 29 INCLUDE "comdissipn.h" -
LMDZ6/trunk/libf/dyn3dmem/gradiv2_mod.f90
r5271 r5272 11 11 USE allocate_field_mod 12 12 USE parallel_lmdz 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 TYPE(distrib),POINTER :: d 15 16 d=>distrib_dissip -
LMDZ6/trunk/libf/dyn3dmem/groupe_loc.f90
r5271 r5272 6 6 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 10 implicit none 9 11 … … 20 22 21 23 22 include "paramet.h" 24 23 25 include "comgeom2.h" 24 26 -
LMDZ6/trunk/libf/dyn3dmem/groupe_mod.f90
r5271 r5272 13 13 USE advtrac_mod, ONLY : advtrac_allocate 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 17 INCLUDE "paramet.h" 19 18 20 TYPE(distrib),POINTER :: d 19 21 -
LMDZ6/trunk/libf/dyn3dmem/groupeun_loc.f90
r5271 r5272 4 4 USE comconst_mod, ONLY: ngroup 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 7 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 6 8 IMPLICIT NONE 7 9 8 10 9 include "paramet.h" 11 10 12 include "comgeom2.h" 11 13 … … 139 141 USE comconst_mod, ONLY: ngroup 140 142 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 143 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 144 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 141 145 IMPLICIT NONE 142 146 143 147 144 include "paramet.h" 148 145 149 include "comgeom2.h" 146 150 -
LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.f90
r5271 r5272 19 19 USE pres2lev_mod, only: pres2lev 20 20 21 IMPLICIT NONE 21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 22 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 23 IMPLICIT NONE 22 24 23 25 ! --------------------------------------------- … … 84 86 85 87 86 INCLUDE "paramet.h" 88 87 89 88 90 INTEGER :: error,ncidpl,rid,rcod … … 371 373 372 374 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 375 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 376 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 373 377 IMPLICIT NONE 374 378 375 379 376 INCLUDE "paramet.h" 380 377 381 378 382 ! Variables entree … … 732 736 733 737 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 738 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 739 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 734 740 IMPLICIT NONE 735 741 736 INCLUDE "paramet.h" 742 737 743 738 744 ! input variables … … 756 762 757 763 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 764 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 765 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 758 766 IMPLICIT NONE 759 767 760 INCLUDE "paramet.h" 768 761 769 762 770 ! input variables … … 782 790 783 791 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 792 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 793 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 784 794 IMPLICIT NONE 785 795 786 796 787 INCLUDE "paramet.h" 797 788 798 INCLUDE "comgeom.h" 789 799 … … 855 865 856 866 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 867 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 868 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 857 869 IMPLICIT NONE 858 870 859 871 860 INCLUDE "paramet.h" 872 861 873 INCLUDE "comgeom.h" 862 874 … … 928 940 USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type 929 941 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 942 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 943 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 930 944 IMPLICIT NONE 931 945 932 946 933 include "paramet.h" 947 934 948 include "comgeom2.h" 935 949 … … 1417 1431 1418 1432 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1433 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1434 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1419 1435 implicit none 1420 1436 1421 1437 1422 include "paramet.h" 1438 1423 1439 include "comgeom2.h" 1424 1440 … … 1585 1601 USE netcdf, ONLY: nf90_put_var 1586 1602 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1603 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1604 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1587 1605 IMPLICIT NONE 1588 1606 1589 include "paramet.h" 1607 1590 1608 1591 1609 INTEGER, INTENT(IN) :: timestep … … 1903 1921 USE netcdf, ONLY: nf90_put_var 1904 1922 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1923 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1924 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1905 1925 IMPLICIT NONE 1906 1926 1907 include "paramet.h" 1927 1908 1928 1909 1929 INTEGER, INTENT(IN) :: timestep … … 2182 2202 2183 2203 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2204 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 2205 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 2184 2206 IMPLICIT NONE 2185 2207 2186 2208 2187 INCLUDE "paramet.h" 2209 2188 2210 INCLUDE "comgeom2.h" 2189 2211 … … 2405 2427 use mod_hallo 2406 2428 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2429 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 2430 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 2407 2431 implicit none 2408 2432 2409 include 'paramet.h' 2433 2410 2434 2411 2435 CHARACTER (len=*) :: varname … … 2436 2460 subroutine dumpall 2437 2461 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 2462 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 2463 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 2438 2464 implicit none 2439 2465 2440 include "paramet.h" 2466 2441 2467 include "comgeom.h" 2442 2468 call barrier -
LMDZ6/trunk/libf/dyn3dmem/iniacademic_loc.f90
r5271 r5272 28 28 29 29 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 30 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 31 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 30 32 IMPLICIT NONE 31 33 … … 34 36 35 37 36 include "paramet.h" 38 37 39 include "comgeom.h" 38 40 include "academic.h" -
LMDZ6/trunk/libf/dyn3dmem/initdynav_loc.f90
r5271 r5272 18 18 19 19 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 20 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 21 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 20 22 implicit none 21 23 … … 46 48 ! Declarations 47 49 48 include "paramet.h" 50 49 51 include "comgeom.h" 50 52 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/initfluxsto_p.f90
r5271 r5272 17 17 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 implicit none 20 22 … … 47 49 ! Declarations 48 50 49 include "paramet.h" 51 50 52 include "comgeom.h" 51 53 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/inithist_loc.f90
r5271 r5272 17 17 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 implicit none 20 22 … … 44 46 ! Declarations 45 47 46 include "paramet.h" 48 47 49 include "comgeom.h" 48 50 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/integrd_loc.f90
r5271 r5272 17 17 USE strings_mod, ONLY: int2str 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 … … 36 38 37 39 38 include "paramet.h" 40 39 41 include "comgeom.h" 40 42 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3dmem/integrd_mod.f90
r5271 r5272 13 13 USE allocate_field_mod 14 14 USE parallel_lmdz 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE advect_new_mod,ONLY : advect_new_allocate 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 USE advect_new_mod,ONLY : advect_new_allocate 16 19 IMPLICIT NONE 17 20 TYPE(distrib),POINTER :: d -
LMDZ6/trunk/libf/dyn3dmem/laplacien_gam_loc.f90
r5271 r5272 13 13 USE parallel_lmdz 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "comgeom.h" 20 22 -
LMDZ6/trunk/libf/dyn3dmem/laplacien_loc.f90
r5271 r5272 12 12 USE mod_filtreg_p 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! 16 18 17 INCLUDE "paramet.h" 19 18 20 INCLUDE "comgeom.h" 19 21 -
LMDZ6/trunk/libf/dyn3dmem/laplacien_rot_loc.f90
r5271 r5272 13 13 USE mod_filtreg_p 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "comgeom.h" 20 22 -
LMDZ6/trunk/libf/dyn3dmem/laplacien_rotgam_loc.f90
r5271 r5272 11 11 USE parallel_lmdz 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 ! 15 17 16 INCLUDE "paramet.h" 18 17 19 INCLUDE "comgeom.h" 18 20 -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90
r5271 r5272 40 40 USE strings_mod, ONLY: int2str 41 41 42 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 42 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 43 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 44 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 43 45 IMPLICIT NONE 44 46 … … 73 75 ! Declarations: 74 76 ! ------------- 75 76 77 include "paramet.h" 78 include "comdissnew.h" 77 include "comdissnew.h" 79 78 include "comgeom.h" 80 79 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_mod.f90
r5271 r5272 39 39 USE allocate_field_mod 40 40 USE parallel_lmdz 41 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE infotrac 41 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 42 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 43 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 44 USE infotrac 42 45 USE caldyn_mod,ONLY : caldyn_allocate 43 46 USE integrd_mod,ONLY : integrd_allocate -
LMDZ6/trunk/libf/dyn3dmem/massbar_loc.f90
r5271 r5272 8 8 USE parallel_lmdz 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT NONE 11 13 12 include "paramet.h" 14 13 15 include "comgeom.h" 14 16 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/massbarxy_loc.f90
r5271 r5272 8 8 USE parallel_lmdz 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT NONE 11 13 12 include "paramet.h" 14 13 15 include "comgeom.h" 14 16 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/massdair_loc.f90
r5271 r5272 15 15 ! 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 18 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 17 19 IMPLICIT NONE 18 20 ! 19 21 20 include "paramet.h" 22 21 23 include "comgeom.h" 22 24 ! -
LMDZ6/trunk/libf/dyn3dmem/mod_filtreg_p.F90
r5271 r5272 14 14 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 17 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 16 18 IMPLICIT NONE 17 19 … … 57 59 ! 58 60 59 INCLUDE "paramet.h" 61 60 62 INCLUDE "coefils.h" 61 63 ! -
LMDZ6/trunk/libf/dyn3dmem/mod_hallo.f90
r5271 r5272 68 68 69 69 subroutine Init_mod_hallo 70 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE IOIPSL 70 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 71 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 72 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 73 USE IOIPSL 71 74 implicit none 72 75 integer :: jj_nb_gather(0:mpi_size-1) … … 214 217 215 218 subroutine Register_SendField(Field,ij,ll,offset,size,target,a_request) 216 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 219 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 220 implicit none 217 221 218 222 … … 229 233 230 234 subroutine Register_RecvField(Field,ij,ll,offset,size,target,a_request) 231 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 235 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 236 implicit none 232 237 233 238 … … 245 250 246 251 subroutine Register_SwapField(FieldS,FieldR,ij,ll,jj_Nb_New,a_request) 247 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 252 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 253 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 254 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 255 implicit none 248 256 249 257 … … 292 300 293 301 subroutine Register_SwapFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down,a_request) 294 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 302 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 303 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 304 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 295 305 implicit none 296 306 … … 345 355 SUBROUTINE Register_SwapField1d_u(FieldS,FieldR,new_dist,a_request,up,down) 346 356 USE parallel_lmdz 347 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 357 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 358 IMPLICIT NONE 348 359 349 360 TYPE(distrib),INTENT(IN) :: new_dist … … 369 380 SUBROUTINE Register_SwapField1d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 370 381 USE parallel_lmdz 371 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 382 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 383 IMPLICIT NONE 372 384 373 385 TYPE(distrib),INTENT(IN) :: new_dist … … 395 407 SUBROUTINE Register_SwapField2d_u1d(FieldS,FieldR,new_dist,a_request,up,down) 396 408 USE parallel_lmdz 397 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 409 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 410 IMPLICIT NONE 398 411 399 412 TYPE(distrib),INTENT(IN) :: new_dist … … 422 435 SUBROUTINE Register_SwapField2d_u1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 423 436 USE parallel_lmdz 424 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 437 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 438 IMPLICIT NONE 425 439 426 440 TYPE(distrib),INTENT(IN) :: new_dist … … 451 465 SUBROUTINE Register_SwapField3d_u(FieldS,FieldR,new_dist,a_request,up,down) 452 466 USE parallel_lmdz 453 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 467 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 468 IMPLICIT NONE 454 469 455 470 TYPE(distrib),INTENT(IN) :: new_dist … … 478 493 SUBROUTINE Register_SwapField3d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 479 494 USE parallel_lmdz 480 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 495 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 496 IMPLICIT NONE 481 497 482 498 TYPE(distrib),INTENT(IN) :: new_dist … … 618 634 SUBROUTINE Register_SwapField3d_u2d(FieldS,FieldR,new_dist,a_request,up,down) 619 635 USE parallel_lmdz 620 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 636 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 637 IMPLICIT NONE 621 638 622 639 TYPE(distrib),INTENT(IN) :: new_dist … … 645 662 SUBROUTINE Register_SwapField3d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 646 663 USE parallel_lmdz 647 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 664 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 665 IMPLICIT NONE 648 666 649 667 TYPE(distrib),INTENT(IN) :: new_dist … … 679 697 SUBROUTINE Register_SwapField1d_v(FieldS,FieldR,new_dist,a_request,up,down) 680 698 USE parallel_lmdz 681 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 699 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 700 IMPLICIT NONE 682 701 683 702 TYPE(distrib),INTENT(IN) :: new_dist … … 703 722 SUBROUTINE Register_SwapField1d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 704 723 USE parallel_lmdz 705 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 724 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 725 IMPLICIT NONE 706 726 707 727 TYPE(distrib),INTENT(IN) :: new_dist … … 729 749 SUBROUTINE Register_SwapField2d_v1d(FieldS,FieldR,new_dist,a_request,up,down) 730 750 USE parallel_lmdz 731 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 751 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 752 IMPLICIT NONE 732 753 733 754 TYPE(distrib),INTENT(IN) :: new_dist … … 756 777 SUBROUTINE Register_SwapField2d_v1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 757 778 USE parallel_lmdz 758 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 779 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 780 IMPLICIT NONE 759 781 760 782 TYPE(distrib),INTENT(IN) :: new_dist … … 786 808 SUBROUTINE Register_SwapField3d_v(FieldS,FieldR,new_dist,a_request,up,down) 787 809 USE parallel_lmdz 788 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 810 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 811 IMPLICIT NONE 789 812 790 813 TYPE(distrib),INTENT(IN) :: new_dist … … 813 836 SUBROUTINE Register_SwapField3d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 814 837 USE parallel_lmdz 815 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 838 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 839 IMPLICIT NONE 816 840 817 841 TYPE(distrib),INTENT(IN) :: new_dist … … 844 868 SUBROUTINE Register_SwapField1d_v2d(FieldS,FieldR,new_dist,a_request,up,down) 845 869 USE parallel_lmdz 846 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 870 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 871 IMPLICIT NONE 847 872 848 873 TYPE(distrib),INTENT(IN) :: new_dist !LF … … 868 893 SUBROUTINE Register_SwapField1d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 869 894 USE parallel_lmdz 870 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 895 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 896 IMPLICIT NONE 871 897 872 898 TYPE(distrib),INTENT(IN) :: new_dist !LF … … 894 920 SUBROUTINE Register_SwapField2d_v2d(FieldS,FieldR,new_dist,a_request,up,down) 895 921 USE parallel_lmdz 896 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 922 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 923 IMPLICIT NONE 897 924 898 925 TYPE(distrib),INTENT(IN) :: new_dist … … 921 948 SUBROUTINE Register_SwapField2d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 922 949 USE parallel_lmdz 923 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 950 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 951 IMPLICIT NONE 924 952 925 953 TYPE(distrib),INTENT(IN) :: new_dist … … 950 978 SUBROUTINE Register_SwapField3d_v2d(FieldS,FieldR,new_dist,a_request,up,down) 951 979 USE parallel_lmdz 952 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 980 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 981 IMPLICIT NONE 953 982 954 983 TYPE(distrib),INTENT(IN) :: new_dist … … 977 1006 SUBROUTINE Register_SwapField3d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down) 978 1007 USE parallel_lmdz 979 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 1008 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1009 IMPLICIT NONE 980 1010 981 1011 TYPE(distrib),INTENT(IN) :: new_dist … … 1006 1036 1007 1037 SUBROUTINE Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request) 1008 USE parallel_lmdz 1009 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 1038 USE parallel_lmdz 1039 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1040 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1041 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1042 IMPLICIT NONE 1010 1043 1011 1044 INTEGER :: ll,Up,Down … … 1059 1092 SUBROUTINE Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request) 1060 1093 USE parallel_lmdz 1061 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 1094 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1095 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1096 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1097 IMPLICIT NONE 1062 1098 1063 1099 INTEGER :: ll,Up,Down … … 1117 1153 1118 1154 subroutine Register_Hallo(Field,ij,ll,RUp,Rdown,SUp,SDown,a_request) 1119 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1155 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1156 USE lmdz_mpi 1120 1157 implicit none 1121 1158 … … 1181 1218 1182 1219 subroutine Register_Hallo_u(Field,ll,RUp,Rdown,SUp,SDown,a_request) 1183 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1220 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1221 USE lmdz_mpi 1184 1222 implicit none 1185 1223 INTEGER :: ll … … 1243 1281 1244 1282 subroutine Register_Hallo_v(Field,ll,RUp,Rdown,SUp,SDown,a_request) 1245 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1283 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1284 USE lmdz_mpi 1246 1285 implicit none 1247 1286 INTEGER :: ll … … 1305 1344 1306 1345 subroutine SendRequest(a_Request) 1307 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1346 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1347 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1348 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1349 USE lmdz_mpi 1308 1350 implicit none 1309 1351 … … 1422 1464 1423 1465 subroutine WaitRequest(a_Request) 1424 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1466 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1467 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1468 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1469 USE lmdz_mpi 1425 1470 implicit none 1426 1471 … … 1507 1552 subroutine WaitSendRequest(a_Request) 1508 1553 USE lmdz_mpi 1509 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1554 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1555 implicit none 1510 1556 1511 1557 type(request),target :: a_request … … 1553 1599 1554 1600 subroutine WaitRecvRequest(a_Request) 1555 USE dimensions_mod, ONLY: iim, jjm, llm, ndm USE lmdz_mpi 1601 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1602 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1603 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1604 USE lmdz_mpi 1556 1605 implicit none 1557 1606 type(request),target :: a_request … … 1624 1673 subroutine CopyField(FieldS,FieldR,ij,ll,jj_Nb_New) 1625 1674 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1675 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1676 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1626 1677 implicit none 1627 1678 … … 1660 1711 1661 1712 subroutine CopyFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down) 1662 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1713 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1714 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1715 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1663 1716 implicit none 1664 1717 … … 1699 1752 1700 1753 subroutine Gather_field_u(field_loc,field_glo,ll) 1701 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1754 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1755 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1756 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1757 implicit none 1702 1758 integer :: ll 1703 1759 real :: field_loc(ijb_u:ije_u,ll) … … 1721 1777 1722 1778 subroutine Gather_field_v(field_loc,field_glo,ll) 1723 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1779 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1780 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1781 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1782 implicit none 1724 1783 integer :: ll 1725 1784 real :: field_loc(ijb_v:ije_v,ll) … … 1748 1807 1749 1808 subroutine Scatter_field_u(field_glo,field_loc,ll) 1750 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1809 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1810 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1811 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1812 implicit none 1751 1813 integer :: ll 1752 1814 real :: field_glo(ip1jmp1,ll) … … 1781 1843 1782 1844 subroutine Scatter_field_v(field_glo,field_loc,ll) 1783 USE dimensions_mod, ONLY: iim, jjm, llm, ndm implicit none 1845 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1846 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1847 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1848 implicit none 1784 1849 integer :: ll 1785 1850 real :: field_glo(ip1jmp1,ll) -
LMDZ6/trunk/libf/dyn3dmem/mod_xios_dyn3dmem.f90
r5271 r5272 41 41 42 42 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 43 IMPLICIT NONE 44 45 46 INCLUDE "paramet.h" 43 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 44 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 45 IMPLICIT NONE 46 47 48 47 49 INCLUDE 'comgeom.h' 48 50 … … 135 137 USE parallel_lmdz 136 138 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 137 IMPLICIT NONE 138 139 include 'paramet.h' 139 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 140 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 141 IMPLICIT NONE 142 143 140 144 CHARACTER(LEN=*) :: name 141 145 REAL, DIMENSION(ij_begin:ij_end) :: Field … … 157 161 USE parallel_lmdz 158 162 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 159 IMPLICIT NONE 160 161 include 'paramet.h' 163 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 164 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 165 IMPLICIT NONE 166 167 162 168 CHARACTER(LEN=*) :: name 163 169 REAL, DIMENSION(ij_begin:ij_end,llm) :: Field … … 191 197 USE parallel_lmdz 192 198 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 193 IMPLICIT NONE 194 195 include 'paramet.h' 199 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 200 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 201 IMPLICIT NONE 202 203 196 204 CHARACTER(LEN=*) :: name 197 205 REAL, DIMENSION(ij_begin:ij_end) :: Field … … 222 230 USE parallel_lmdz 223 231 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 224 IMPLICIT NONE 225 226 include 'paramet.h' 232 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 233 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 234 IMPLICIT NONE 235 236 227 237 CHARACTER(LEN=*) :: name 228 238 REAL, DIMENSION(ij_begin:ij_end,llm) :: Field -
LMDZ6/trunk/libf/dyn3dmem/nxgrad_gam_loc.f90
r5271 r5272 12 12 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! 16 18 17 INCLUDE "paramet.h" 19 18 20 INCLUDE "comgeom.h" 19 21 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3dmem/nxgrad_loc.f90
r5271 r5272 11 11 USE parallel_lmdz 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 ! 15 17 16 INCLUDE "paramet.h" 18 17 19 INCLUDE "comgeom.h" 18 20 INTEGER :: klevel -
LMDZ6/trunk/libf/dyn3dmem/nxgraro2_loc.f90
r5271 r5272 19 19 USE nxgraro2_mod 20 20 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 21 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 22 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 21 23 IMPLICIT NONE 22 24 ! 23 25 24 INCLUDE "paramet.h" 26 25 27 INCLUDE "comdissipn.h" 26 28 ! -
LMDZ6/trunk/libf/dyn3dmem/nxgraro2_mod.f90
r5271 r5272 11 11 USE allocate_field_mod 12 12 USE parallel_lmdz 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 IMPLICIT NONE 14 15 TYPE(distrib),POINTER :: d 15 16 d=>distrib_dissip -
LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90
r5271 r5272 86 86 USE lmdz_mpi 87 87 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 88 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 89 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 88 90 implicit none 89 91 90 INCLUDE "paramet.h" 92 91 93 INCLUDE "iniprint.h" 92 94 … … 246 248 SUBROUTINE create_distrib(jj_nb_new,d) 247 249 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 250 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 251 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 248 252 IMPLICIT NONE 249 253 250 INCLUDE "paramet.h" 254 251 255 252 256 INTEGER,INTENT(IN) :: jj_Nb_New(0:MPI_Size-1) … … 298 302 SUBROUTINE Set_Distrib(d) 299 303 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 304 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 305 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 300 306 IMPLICIT NONE 301 307 302 308 303 INCLUDE "paramet.h" 309 304 310 TYPE(distrib),INTENT(IN) :: d 305 311 … … 335 341 SUBROUTINE copy_distrib(dist,new_dist) 336 342 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 343 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 344 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 337 345 IMPLICIT NONE 338 346 339 347 340 INCLUDE "paramet.h" 348 341 349 TYPE(distrib),INTENT(INOUT) :: dist 342 350 TYPE(distrib),INTENT(IN) :: new_dist … … 373 381 SUBROUTINE get_current_distrib(d) 374 382 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 383 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 384 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 375 385 IMPLICIT NONE 376 386 377 387 378 INCLUDE "paramet.h" 388 379 389 TYPE(distrib),INTENT(OUT) :: d 380 390 … … 389 399 USE control_mod, only : ok_dyn_xios 390 400 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 401 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 402 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 391 403 392 404 #ifdef CPP_COUPLE … … 406 418 #endif 407 419 ! #endif of #ifdef CPP_EARTH 408 409 include "paramet.h"410 411 420 integer :: ierr 412 421 integer :: i … … 453 462 subroutine Pack_Data(Field,ij,ll,row,Buffer) 454 463 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 464 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 465 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 455 466 implicit none 456 467 457 468 458 INCLUDE "paramet.h" 469 459 470 460 471 integer, intent(in) :: ij,ll,row … … 477 488 subroutine Unpack_Data(Field,ij,ll,row,Buffer) 478 489 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 490 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 491 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 479 492 implicit none 480 493 481 494 482 INCLUDE "paramet.h" 495 483 496 484 497 integer, intent(in) :: ij,ll,row … … 517 530 USE Vampir 518 531 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 532 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 533 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 519 534 implicit none 520 535 521 INCLUDE "paramet.h" 536 522 537 INTEGER :: ij,ll 523 538 REAL, dimension(ij,ll) :: Field … … 635 650 USE lmdz_mpi 636 651 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 652 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 653 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 637 654 implicit none 638 655 639 INCLUDE "paramet.h" 656 640 657 INCLUDE "iniprint.h" 641 658 INTEGER :: ij,ll,rank … … 716 733 USE lmdz_mpi 717 734 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 735 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 736 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 718 737 implicit none 719 738 720 INCLUDE "paramet.h" 739 721 740 INTEGER :: ij,ll 722 741 REAL, dimension(ij,ll) :: Field … … 735 754 USE lmdz_mpi 736 755 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 756 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 757 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 737 758 implicit none 738 759 739 INCLUDE "paramet.h" 760 740 761 INTEGER :: ij,ll 741 762 REAL, dimension(ij,ll) :: Field … … 756 777 ! USE lmdz_mpi 757 778 ! USE dimensions_mod, ONLY: iim, jjm, llm, ndm 758 implicit none 779 ! USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 780 ! ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 781 !implicit none 759 782 ! 760 ! INCLUDE "paramet.h"783 ! 761 784 ! 762 785 ! INTEGER :: ij,ll -
LMDZ6/trunk/libf/dyn3dmem/paramet_mod_h.f90
r5271 r5272 1 ! 2 ! $Id$ 3 ! 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez n'utiliser que des ! pour les commentaires 7 ! et bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 9 ! 10 ! 11 !----------------------------------------------------------------------- 12 ! INCLUDE 'paramet.h' 1 MODULE paramet_mod_h 2 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 3 14 INTEGER iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1 15 INTEGER kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm 16 INTEGER ijmllm,mvar 17 INTEGER jcfil,jcfllm 4 IMPLICIT NONE; PRIVATE 5 PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 6 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 7 19 PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3 & 20 & ,jjp1=jjm+1-1/jjm) 21 PARAMETER( llmp1 = llm+1, llmp2 = llm+2, llmm1 = llm-1 ) 22 PARAMETER( kftd = iim/2 -ndm ) 23 PARAMETER( ip1jm = iip1*jjm, ip1jmp1= iip1*jjp1 ) 24 PARAMETER( ip1jmi1= ip1jm - iip1 ) 25 PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm ) 26 PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm ) 27 PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm ) 8 INTEGER iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1 9 INTEGER kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm 10 INTEGER ijmllm, mvar 11 INTEGER jcfil, jcfllm 28 12 29 !----------------------------------------------------------------------- 13 PARAMETER(iip1 = iim + 1 - 1 / iim, iip2 = iim + 2, iip3 = iim + 3, jjp1 = jjm + 1 - 1 / jjm) 14 PARAMETER(llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1) 15 PARAMETER(kftd = iim / 2 - ndm) 16 PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1) 17 PARAMETER(ip1jmi1 = ip1jm - iip1) 18 PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm) 19 PARAMETER(mvar = ip1jmp1 * (2 * llm + 1) + ijmllm) 20 PARAMETER(jcfil = jjm / 2 + 5, jcfllm = jcfil * llm) 21 END MODULE paramet_mod_h -
LMDZ6/trunk/libf/dyn3dmem/pression_loc.f90
r5271 r5272 13 13 ! 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 ! 20 22 INTEGER,INTENT(IN) :: ngrid ! not used -
LMDZ6/trunk/libf/dyn3dmem/qminimum_loc.f90
r5271 r5272 8 8 USE strings_mod, ONLY: strIdx 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT none 11 13 ! … … 14 16 ! 15 17 16 include "paramet.h" 18 17 19 include "iniprint.h" 18 20 ! -
LMDZ6/trunk/libf/dyn3dmem/rotat_nfil_loc.f90
r5271 r5272 12 12 USE parallel_lmdz 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! 16 18 17 INCLUDE "paramet.h" 19 18 20 INCLUDE "comgeom.h" 19 21 ! -
LMDZ6/trunk/libf/dyn3dmem/rotat_p.f90
r5271 r5272 12 12 USE parallel_lmdz 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 ! 16 18 17 INCLUDE "paramet.h" 19 18 20 INCLUDE "comgeom.h" 19 21 ! -
LMDZ6/trunk/libf/dyn3dmem/rotatf_loc.f90
r5271 r5272 13 13 USE mod_filtreg_p 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 IMPLICIT NONE 16 18 ! 17 19 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "comgeom.h" 20 22 ! -
LMDZ6/trunk/libf/dyn3dmem/sw_case_williamson91_6_loc.f90
r5271 r5272 31 31 32 32 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 33 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 34 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 33 35 IMPLICIT NONE 34 36 !----------------------------------------------------------------------- … … 37 39 38 40 39 include "paramet.h" 41 40 42 include "comgeom.h" 41 43 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3dmem/times.f90
r5271 r5272 27 27 USE parallel_lmdz 28 28 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 29 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 30 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 29 31 implicit none 30 32 31 INCLUDE "paramet.h" 33 32 34 33 35 max_size=jjm+1 -
LMDZ6/trunk/libf/dyn3dmem/top_bound_loc.f90
r5271 r5272 9 9 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 ! 13 15 14 include "paramet.h" 16 15 17 include "comgeom2.h" 16 18 -
LMDZ6/trunk/libf/dyn3dmem/tourpot_loc.f90
r5271 r5272 8 8 USE mod_filtreg_p 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT NONE 11 13 12 include "paramet.h" 14 13 15 include "comgeom.h" 14 16 !=============================================================================== -
LMDZ6/trunk/libf/dyn3dmem/vitvert_loc.f90
r5271 r5272 9 9 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 13 include "paramet.h" 15 14 16 !=============================================================================== 15 17 ! Arguments: -
LMDZ6/trunk/libf/dyn3dmem/vlsplt_loc.F90
r5271 r5272 17 17 min_qParent,min_qMass,min_ratio ! MVals et CRisi 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 ! 21 23 22 include "paramet.h" 24 23 25 include "iniprint.h" 24 26 ! … … 420 422 USE comconst_mod, ONLY: pi 421 423 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 424 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 425 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 422 426 IMPLICIT NONE 423 427 ! 424 428 425 include "paramet.h" 429 426 430 include "comgeom.h" 427 431 ! … … 889 893 890 894 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 895 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 896 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 891 897 IMPLICIT NONE 892 898 ! 893 899 894 include "paramet.h" 900 895 901 include "iniprint.h" 896 902 ! -
LMDZ6/trunk/libf/dyn3dmem/vlspltgen_loc.F90
r5271 r5272 35 35 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 36 36 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 37 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 38 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 37 39 IMPLICIT NONE 38 40 39 41 ! 40 42 41 include "paramet.h" 43 42 44 43 45 ! -
LMDZ6/trunk/libf/dyn3dmem/vlspltgen_mod.f90
r5271 r5272 17 17 USE vlz_mod,ONLY : vlz_allocate 18 18 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 19 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 20 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 19 21 IMPLICIT NONE 20 22 21 INCLUDE "paramet.h" 23 22 24 TYPE(distrib),POINTER :: d 23 25 -
LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F90
r5271 r5272 15 15 min_qParent,min_qMass,min_ratio ! MVals et CRisi 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 18 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 17 19 IMPLICIT NONE 18 20 ! 19 21 20 include "paramet.h" 22 21 23 ! 22 24 ! … … 425 427 USE comconst_mod, ONLY: pi 426 428 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 429 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 430 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 427 431 IMPLICIT NONE 428 432 ! 429 433 430 include "paramet.h" 434 431 435 include "comgeom.h" 432 436 include "iniprint.h" -
LMDZ6/trunk/libf/dyn3dmem/vlz_mod.f90
r5271 r5272 15 15 USE parallel_lmdz 16 16 USE infotrac 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm IMPLICIT NONE 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 IMPLICIT NONE 18 19 TYPE(distrib),POINTER :: d 19 20 -
LMDZ6/trunk/libf/dyn3dmem/write_field_loc.f90
r5271 r5272 38 38 USE mod_hallo 39 39 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 40 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 41 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 40 42 implicit none 41 43 42 include 'paramet.h' 44 43 45 44 46 character(len=*) :: name … … 104 106 USE mod_hallo 105 107 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 108 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 109 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 106 110 implicit none 107 111 108 include 'paramet.h' 112 109 113 110 114 character(len=*) :: name -
LMDZ6/trunk/libf/dyn3dmem/writedyn_xios.f90
r5271 r5272 15 15 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 18 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 17 19 implicit none 18 20 ! … … 36 38 ! Declarations 37 39 38 include "paramet.h" 40 39 41 include "comgeom.h" 40 42 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/writedynav_loc.f90
r5271 r5272 16 16 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 20 implicit none 19 21 … … 45 47 ! Declarations 46 48 47 include "paramet.h" 49 48 50 include "comgeom.h" 49 51 include "description.h" -
LMDZ6/trunk/libf/dyn3dmem/writehist_loc.f90
r5271 r5272 16 16 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 20 implicit none 19 21 … … 45 47 ! Declarations 46 48 47 include "paramet.h" 49 48 50 include "comgeom.h" 49 51 include "description.h" -
LMDZ6/trunk/libf/dynphy_lonlat/calfis.f90
r5271 r5272 36 36 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS 37 37 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 38 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 39 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 38 40 IMPLICIT NONE 39 41 !======================================================================= … … 89 91 ! 0. Declarations : 90 92 ! ------------------ 91 92 include "paramet.h"93 94 93 INTEGER :: ngridmx 95 94 PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm ) -
LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90
r5271 r5272 52 52 #ifdef CPP_PARA 53 53 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 54 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 55 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 54 56 IMPLICIT NONE 55 57 !======================================================================= … … 106 108 ! 0. Declarations : 107 109 ! ------------------ 108 include "paramet.h"109 110 110 INTEGER :: ngridmx 111 111 PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm ) -
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90
r5271 r5272 47 47 48 48 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 49 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 50 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 49 51 IMPLICIT NONE 50 52 … … 52 54 ! Local variables: 53 55 54 include "paramet.h" 56 55 57 include "comgeom2.h" 56 58 include "iniprint.h" -
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90
r5271 r5272 42 42 43 43 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 44 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 45 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 44 46 IMPLICIT NONE 45 47 … … 49 51 include "iniprint.h" 50 52 51 include "paramet.h" 53 52 54 include "comgeom2.h" 53 55 include "comdissnew.h" -
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90
r5271 r5272 54 54 USE comconst_mod, ONLY: pi, dtvr 55 55 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 56 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 57 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 56 58 PRIVATE 57 59 PUBLIC :: etat0phys_netcdf 58 60 59 61 include "iniprint.h" 60 include "paramet.h"61 62 include "comgeom2.h" 62 63 include "dimsoil.h" -
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
r5271 r5272 43 43 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS 44 44 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 45 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 46 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 45 47 IMPLICIT NONE 46 48 … … 51 53 52 54 53 include "paramet.h" 55 54 56 include "iniprint.h" 55 57 include "tracstoke.h" -
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/init_ssrf_m.f90
r5271 r5272 13 13 USE surface_data, ONLY: landice_opt 14 14 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 15 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 16 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 17 16 18 CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice" … … 18 20 PUBLIC :: start_init_subsurf 19 21 include "iniprint.h" 20 include "paramet.h"21 22 include "comgeom2.h" 22 23 -
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90
r5271 r5272 82 82 USE lmdz_cppkeys_wrapper, ONLY: nf90_format 83 83 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 84 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 85 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 84 86 IMPLICIT NONE 85 87 !------------------------------------------------------------------------------- … … 87 89 include "iniprint.h" 88 90 89 include "paramet.h" 91 90 92 REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask 91 93 REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis ! ground geopotential … … 332 334 333 335 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 336 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 337 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 334 338 IMPLICIT NONE 335 339 336 include "paramet.h" 340 337 341 include "comgeom2.h" 338 342 !----------------------------------------------------------------------------- -
LMDZ6/trunk/libf/filtrez/filtreg.F90
r5271 r5272 8 8 9 9 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 10 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 11 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 10 12 IMPLICIT NONE 11 13 !======================================================================= … … 48 50 ! 49 51 50 INCLUDE "paramet.h" 52 51 53 INCLUDE "coefils.h" 52 54 -
LMDZ6/trunk/libf/filtrez/filtreg_mod.F90
r5271 r5272 21 21 ! 22 22 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 23 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 24 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 23 25 IMPLICIT NONE 24 26 ! … … 28 30 ! ------------------------------------------------------------------- 29 31 30 include "paramet.h" 32 31 33 ! ------------------------------------------------------------------- 32 34 include "comgeom.h" -
LMDZ6/trunk/libf/filtrez/inifgn.F90
r5271 r5272 7 7 ! 8 8 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 9 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 10 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 9 11 IMPLICIT NONE 10 12 ! 11 13 12 include "paramet.h" 14 13 15 include "comgeom.h" 14 16 -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90
r5271 r5272 9 9 USE infotrac 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 … … 14 16 INCLUDE "chem.h" 15 17 INCLUDE "YOMCST.h" 16 INCLUDE "paramet.h" 18 17 19 18 20 !============================= INPUT =================================== -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90
r5271 r5272 9 9 USE infotrac 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 … … 14 16 INCLUDE "chem.h" 15 17 INCLUDE "YOMCST.h" 16 INCLUDE "paramet.h" 18 17 19 18 20 !============================= INPUT =================================== -
LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90
r5271 r5272 32 32 ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb 33 33 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 34 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 35 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 34 36 IMPLICIT NONE 35 37 … … 38 40 INCLUDE "chem_spla.h" 39 41 INCLUDE "YOMCST.h" 40 INCLUDE "paramet.h" 42 41 43 42 44 !============================== INPUT ================================== -
LMDZ6/trunk/libf/phylmd/Dust/deposition.f90
r5271 r5272 11 11 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 15 IMPLICIT NONE 14 16 … … 16 18 INCLUDE "chem.h" 17 19 INCLUDE "YOMCST.h" 18 INCLUDE "paramet.h" 20 19 21 20 22 !----------------------------- INPUT ----------------------------------- -
LMDZ6/trunk/libf/phylmd/Dust/finemission.f90
r5271 r5272 16 16 ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 20 IMPLICIT NONE 19 21 … … 21 23 INCLUDE "chem.h" 22 24 INCLUDE "YOMCST.h" 23 INCLUDE "paramet.h" 25 24 26 25 27 INTEGER :: i, k, kminbc, kmaxbc -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90
r5271 r5272 10 10 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 14 IMPLICIT NONE 13 15 … … 15 17 INCLUDE "chem.h" 16 18 INCLUDE "YOMCST.h" 17 INCLUDE "paramet.h" 19 18 20 19 21 !============================= INPUT =================================== -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90
r5271 r5272 10 10 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 12 14 IMPLICIT NONE 13 15 … … 15 17 INCLUDE "chem.h" 16 18 INCLUDE "YOMCST.h" 17 INCLUDE "paramet.h" 19 18 20 19 21 !============================= INPUT =================================== -
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5271 r5272 808 808 mth_cur, phys_cal_update 809 809 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 810 ! 810 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 811 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 811 812 IMPLICIT none 812 813 ! … … 827 828 INCLUDE "YOMCST.h" 828 829 INCLUDE "YOETHF.h" 829 INCLUDE "paramet.h"830 830 INCLUDE "alpale.h" 831 831 -
LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90
r5271 r5272 21 21 ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb 22 22 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 23 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 24 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 23 25 IMPLICIT NONE 24 26 … … 27 29 INCLUDE "chem_spla.h" 28 30 INCLUDE "YOMCST.h" 29 INCLUDE "paramet.h" 31 30 32 31 33 !============================= INPUT =================================== -
LMDZ6/trunk/libf/phylmd/Dust/read_dust.f90
r5271 r5272 5 5 USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 9 IMPLICIT NONE 8 10 ! 9 11 10 INCLUDE "paramet.h" 12 11 13 ! 12 14 INTEGER :: step, nbjour -
LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90
r5271 r5272 24 24 25 25 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 26 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 27 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 26 28 IMPLICIT NONE 27 29 … … 29 31 30 32 ! INCLUDE 'dimphy.h' 31 INCLUDE 'paramet.h' 33 32 34 INCLUDE 'chem.h' 33 35 INCLUDE 'chem_spla.h' -
LMDZ6/trunk/libf/phylmd/Dust/read_surface.f90
r5271 r5272 12 12 USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 16 INCLUDE "paramet.h" 18 17 19 18 20 character*10 name -
LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90
r5271 r5272 6 6 ! USE write_field_phy 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 10 IMPLICIT NONE 9 11 10 12 ! INCLUDE "dimphy.h" 11 INCLUDE "paramet.h" 13 12 14 ! 13 15 INTEGER :: step, nbjour -
LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90
r5271 r5272 9 9 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 11 13 IMPLICIT NONE 12 14 … … 14 16 INCLUDE "chem.h" 15 17 INCLUDE "YOMCST.h" 16 INCLUDE "paramet.h" 18 17 19 18 20 !============================= INPUT =================================== -
LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90
r5271 r5272 12 12 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 16 IMPLICIT NONE 15 17 16 18 17 19 INCLUDE "clesphys.h" 18 INCLUDE "paramet.h" 20 19 21 INCLUDE "iniprint.h" 20 22 -
LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
r5271 r5272 1 INCLUDE"conf_gcm.f90"1 #include "conf_gcm.f90" 2 2 3 3 ! … … 18 18 ! -------------- 19 19 20 INCLUDE"compar1d.h"21 INCLUDE"flux_arp.h"22 INCLUDE"tsoilnudge.h"23 INCLUDE"fcg_gcssold.h"24 INCLUDE"fcg_racmo.h"20 #include "compar1d.h" 21 #include "flux_arp.h" 22 #include "tsoilnudge.h" 23 #include "fcg_gcssold.h" 24 #include "fcg_racmo.h" 25 25 ! 26 26 ! … … 29 29 30 30 ! CHARACTER ch1*72,ch2*72,ch3*72,ch4*12 31 31 32 32 ! 33 33 ! ------------------------------------------------------------------- … … 42 42 !Config Desc = unite de fichier pour les impressions 43 43 !Config Def = 6 44 !Config Help = unite de fichier pour les impressions 44 !Config Help = unite de fichier pour les impressions 45 45 !Config (defaut sortie standard = 6) 46 46 lunout=6 … … 74 74 !!Config Help = 0 ==> forcing_les = .true. 75 75 ! initial profiles from file prof.inp.001 76 ! no forcing by LS convergence ; 76 ! no forcing by LS convergence ; 77 77 ! surface temperature imposed ; 78 78 ! radiative cooling may be imposed (iflag_radia=0 in physiq.def) 79 79 ! = 1 ==> forcing_radconv = .true. 80 ! idem forcing_type = 0, but the imposed radiative cooling 81 ! is set to 0 (hence, if iflag_radia=0 in physiq.def, 80 ! idem forcing_type = 0, but the imposed radiative cooling 81 ! is set to 0 (hence, if iflag_radia=0 in physiq.def, 82 82 ! then there is no radiative cooling at all) 83 83 ! = 2 ==> forcing_toga = .true. 84 ! initial profiles from TOGA-COARE IFA files 85 ! LS convergence and SST imposed from TOGA-COARE IFA files 84 ! initial profiles from TOGA-COARE IFA files 85 ! LS convergence and SST imposed from TOGA-COARE IFA files 86 86 ! = 3 ==> forcing_GCM2SCM = .true. 87 87 ! initial profiles from the GCM output 88 88 ! LS convergence imposed from the GCM output 89 89 ! = 4 ==> forcing_twpi = .true. 90 ! initial profiles from TWPICE nc files 91 ! LS convergence and SST imposed from TWPICE nc files 90 ! initial profiles from TWPICE nc files 91 ! LS convergence and SST imposed from TWPICE nc files 92 92 ! = 5 ==> forcing_rico = .true. 93 93 ! initial profiles from RICO idealized 94 ! LS convergence imposed from RICO (cst) 94 ! LS convergence imposed from RICO (cst) 95 95 ! = 6 ==> forcing_amma = .true. 96 96 ! = 10 ==> forcing_case = .true. 97 ! initial profiles from case.nc file 97 ! initial profiles from case.nc file 98 98 ! = 40 ==> forcing_GCSSold = .true. 99 99 ! initial profile from GCSS file … … 105 105 ! Radiation has to be computed interactively 106 106 ! = 60 ==> forcing_astex = .true. 107 ! initial profiles from file: see prof.inp.001 107 ! initial profiles from file: see prof.inp.001 108 108 ! SST,divergence,ug,vg,ufa,vfa varying with time : see ifa_astex.txt file 109 109 ! Radiation has to be computed interactively 110 110 ! = 61 ==> forcing_armcu = .true. 111 ! initial profiles from file: see prof.inp.001 111 ! initial profiles from file: see prof.inp.001 112 112 ! sensible and latent heat flux imposed: see ifa_arm_cu_1.txt 113 113 ! large scale advective forcing & radiative tendencies applied below 1000m: see ifa_arm_cu_2.txt 114 ! use geostrophic wind ug=10m/s vg=0m/s. Duration of the case 53100s 114 ! use geostrophic wind ug=10m/s vg=0m/s. Duration of the case 53100s 115 115 ! Radiation to be switched off 116 116 ! > 100 ==> forcing_case = .true. or forcing_case2 = .true. 117 ! initial profiles from case.nc file 117 ! initial profiles from case.nc file 118 118 ! 119 119 forcing_type = 0 120 120 CALL getin('forcing_type',forcing_type) 121 121 imp_fcg_gcssold = .false. 122 ts_fcg_gcssold = .false. 123 Tp_fcg_gcssold = .false. 124 Tp_ini_gcssold = .false. 125 xTurb_fcg_gcssold = .false. 122 ts_fcg_gcssold = .false. 123 Tp_fcg_gcssold = .false. 124 Tp_ini_gcssold = .false. 125 xTurb_fcg_gcssold = .false. 126 126 IF (forcing_type .eq.40) THEN 127 127 CALL getin('imp_fcg',imp_fcg_gcssold) … … 261 261 !Config Desc = meaningless in this case 262 262 !Config Def = 0. 263 !Config Help = 263 !Config Help = 264 264 time_ini = 0. 265 265 CALL getin('time_ini',time_ini) … … 277 277 !Config Desc = Grid cell area 278 278 !Config Def = 1.e11 279 !Config Help = 279 !Config Help = 280 280 airefi = 1.e11 281 281 CALL getin('airephy',airefi) … … 298 298 !Config Desc = surface pressure 299 299 !Config Def = 102400. 300 !Config Help = 300 !Config Help = 301 301 psurf = 102400. 302 302 CALL getin('psurf',psurf) … … 305 305 !Config Desc = surface altitude 306 306 !Config Def = 0. 307 !Config Help = 307 !Config Help = 308 308 zsurf = 0. 309 309 CALL getin('zsurf',zsurf) 310 ! EV pour accord avec format standard 310 ! EV pour accord avec format standard 311 311 CALL getin('zorog',zsurf) 312 312 … … 340 340 !Config Desc = ??? 341 341 !Config Def = 0.0 0.0 342 !Config Help = 342 !Config Help = 343 343 wtsurf = 0.0 344 344 wqsurf = 0.0 … … 349 349 !Config Desc = albedo 350 350 !Config Def = 0.09 351 !Config Help = 351 !Config Help = 352 352 albedo = 0.09 353 353 CALL getin('albedo',albedo) … … 356 356 !Config Desc = age de la neige 357 357 !Config Def = 30.0 358 !Config Help = 358 !Config Help = 359 359 xagesno = 30.0 360 360 CALL getin('agesno',xagesno) … … 363 363 !Config Desc = age de la neige 364 364 !Config Def = 30.0 365 !Config Help = 365 !Config Help = 366 366 restart_runoff = 0.0 367 367 CALL getin('restart_runoff',restart_runoff) … … 370 370 !Config Desc = initial bucket water content (kg/m2) when land (5std) 371 371 !Config Def = 30.0 372 !Config Help = 372 !Config Help = 373 373 qsolinp = 1. 374 374 CALL getin('qsolinp',qsolinp) … … 379 379 !Config Desc = beta for actual evaporation when prescribed 380 380 !Config Def = 1.0 381 !Config Help = 381 !Config Help = 382 382 betaevap = 1. 383 CALL getin('betaevap',betaevap) 383 CALL getin('betaevap',betaevap) 384 384 385 385 !Config Key = zpicinp … … 689 689 real :: q(klon,klev,nqtot),omega2(klon,klev) 690 690 ! real :: ug(klev),vg(klev),fcoriolis 691 real :: phis(klon) 691 real :: phis(klon) 692 692 693 693 ! Variables locales pour NetCDF: … … 719 719 ! 720 720 CALL get_var("controle",tab_cntrl) 721 721 722 722 723 723 im = tab_cntrl(1) … … 755 755 fxyhypb = .false. 756 756 ysinus = .false. 757 IF( tab_cntrl(27).EQ.1. ) ysinus =.true. 757 IF( tab_cntrl(27).EQ.1. ) ysinus =.true. 758 758 ENDIF 759 759 … … 837 837 real :: omega2(klon,klev),rho(klon,klev+1) 838 838 ! real :: ug(klev),vg(klev),fcoriolis 839 real :: phis(klon) 839 real :: phis(klon) 840 840 841 841 ! Variables locales pour NetCDF: … … 893 893 ! tab_cntrl(19) = preff 894 894 ! 895 ! ..... parametres pour le zoom ...... 895 ! ..... parametres pour le zoom ...... 896 896 897 897 ! tab_cntrl(20) = clon … … 957 957 ! passage d'un champ de la grille scalaire a la grille physique 958 958 !======================================================================= 959 959 960 960 !----------------------------------------------------------------------- 961 961 ! declarations: 962 962 ! ------------- 963 963 964 964 INTEGER im,jm,ngrid,nfield 965 965 REAL pdyn(im,jm,nfield) 966 966 REAL pfi(ngrid,nfield) 967 967 968 968 INTEGER i,j,ifield,ig 969 969 970 970 !----------------------------------------------------------------------- 971 971 ! calcul: 972 972 ! ------- 973 973 974 974 DO ifield=1,nfield 975 975 ! traitement des poles … … 978 978 pdyn(i,jm,ifield)=pfi(ngrid,ifield) 979 979 ENDDO 980 980 981 981 ! traitement des point normaux 982 982 DO j=2,jm-1 … … 986 986 ENDDO 987 987 ENDDO 988 988 989 989 RETURN 990 990 END 991 992 991 992 993 993 994 994 SUBROUTINE abort_gcm(modname, message, ierr) 995 995 996 996 USE IOIPSL 997 997 ! … … 1002 1002 ! message = stuff to print 1003 1003 ! ierr = severity of situation ( = 0 normal ) 1004 1004 1005 1005 character(len=*) modname 1006 1006 integer ierr 1007 1007 character(len=*) message 1008 1008 1009 1009 write(*,*) 'in abort_gcm' 1010 1010 call histclo … … 1084 1084 RETURN 1085 1085 END 1086 1086 1087 1087 SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi) 1088 1088 IMPLICIT NONE … … 1090 1090 ! passage d'un champ de la grille scalaire a la grille physique 1091 1091 !======================================================================= 1092 1092 1093 1093 !----------------------------------------------------------------------- 1094 1094 ! declarations: 1095 1095 ! ------------- 1096 1096 1097 1097 INTEGER im,jm,ngrid,nfield 1098 1098 REAL pdyn(im,jm,nfield) 1099 1099 REAL pfi(ngrid,nfield) 1100 1100 1101 1101 INTEGER j,ifield,ig 1102 1102 1103 1103 !----------------------------------------------------------------------- 1104 1104 ! calcul: 1105 1105 ! ------- 1106 1106 1107 1107 IF(ngrid.NE.2+(jm-2)*(im-1).AND.ngrid.NE.1) & 1108 1108 & STOP 'probleme de dim' … … 1110 1110 CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid) 1111 1111 CALL SCOPY(nfield,pdyn(1,jm,1),im*jm,pfi(ngrid,1),ngrid) 1112 1112 1113 1113 ! traitement des point normaux 1114 1114 DO ifield=1,nfield … … 1118 1118 ENDDO 1119 1119 ENDDO 1120 1120 1121 1121 RETURN 1122 1122 END 1123 1123 1124 1124 SUBROUTINE disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig) 1125 1125 1126 1126 ! Ancienne version disvert dont on a modifie nom pour utiliser 1127 1127 ! le disvert de dyn3d (qui permet d'utiliser grille avec ab,bp imposes) … … 1131 1131 ! 1132 1132 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1133 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 1134 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 1133 1135 IMPLICIT NONE 1134 1136 1135 1137 1136 include "paramet.h" 1138 1137 1139 ! 1138 1140 !======================================================================= … … 1160 1162 INTEGER np,ierr 1161 1163 REAL pi,x 1162 1164 1163 1165 !----------------------------------------------------------------------- 1164 1166 ! 1165 1167 pi=2.*ASIN(1.) 1166 1168 1167 1169 OPEN(99,file='sigma.def',status='old',form='formatted', & 1168 1170 & iostat=ierr) 1169 1171 1170 1172 !----------------------------------------------------------------------- 1171 1173 ! cas 1 on lit les options dans sigma.def: 1172 1174 ! ---------------------------------------- 1173 1175 1174 1176 IF (ierr.eq.0) THEN 1175 1177 1176 1178 print*,'WARNING!!! on lit les options dans sigma.def' 1177 1179 READ(99,*) deltaz … … 1184 1186 alpha=deltaz/(llm*h) 1185 1187 ! 1186 1188 1187 1189 DO 1 l = 1, llm 1188 1190 dsig(l) = (alpha+(1.-alpha)*exp(-beta*(llm-l)))* & … … 1190 1192 & (1.-l/FLOAT(llm))*delta ) 1191 1193 1 CONTINUE 1192 1194 1193 1195 sig(1)=1. 1194 1196 DO 101 l=1,llm-1 … … 1196 1198 101 CONTINUE 1197 1199 sig(llm+1)=0. 1198 1200 1199 1201 DO 2 l = 1, llm 1200 1202 dsig(l) = sig(l)-sig(l+1) 1201 1203 2 CONTINUE 1202 1204 ! 1203 1205 1204 1206 ELSE 1205 1207 !----------------------------------------------------------------------- 1206 1208 ! cas 2 ancienne discretisation (LMD5...): 1207 1209 ! ---------------------------------------- 1208 1210 1209 1211 PRINT*,'WARNING!!! Ancienne discretisation verticale' 1210 1212 1211 1213 h=7. 1212 1214 snorm = 0. … … 1224 1226 sig(l) = sig(l+1) + dsig(l) 1225 1227 ENDDO 1226 1228 1227 1229 ENDIF 1228 1229 1230 1231 1230 1232 DO l=1,llm 1231 1233 nivsigs(l) = FLOAT(l) 1232 1234 ENDDO 1233 1235 1234 1236 DO l=1,llmp1 1235 1237 nivsig(l)= FLOAT(l) 1236 1238 ENDDO 1237 1239 1238 1240 ! 1239 1241 ! .... Calculs de ap(l) et de bp(l) .... … … 1243 1245 ! ..... pa et preff sont lus sur les fichiers start par lectba ..... 1244 1246 ! 1245 1247 1246 1248 bp(llmp1) = 0. 1247 1249 1248 1250 DO l = 1, llm 1249 1251 !c 1250 1252 !cc ap(l) = 0. 1251 1253 !cc bp(l) = sig(l) 1252 1254 1253 1255 bp(l) = EXP( 1. -1./( sig(l)*sig(l)) ) 1254 1256 ap(l) = pa * ( sig(l) - bp(l) ) … … 1256 1258 ENDDO 1257 1259 ap(llmp1) = pa * ( sig(llmp1) - bp(llmp1) ) 1258 1260 1259 1261 PRINT *,' BP ' 1260 1262 PRINT *, bp 1261 1263 PRINT *,' AP ' 1262 1264 PRINT *, ap 1263 1265 1264 1266 DO l = 1, llm 1265 1267 dpres(l) = bp(l) - bp(l+1) 1266 1268 presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff ) 1267 1269 ENDDO 1268 1270 1269 1271 PRINT *,' PRESNIVS ' 1270 1272 PRINT *,presnivs 1271 1273 1272 1274 RETURN 1273 1275 END … … 1299 1301 ! Schema amont pour l'advection verticale en 1D 1300 1302 ! w est la vitesse verticale dp/dt en Pa/s 1301 ! Traitement en volumes finis 1303 ! Traitement en volumes finis 1302 1304 ! d / dt ( zm q ) = delta_z ( omega q ) 1303 1305 ! d / dt ( zm ) = delta_z ( omega ) … … 1327 1329 zwq(llm+1)=0. 1328 1330 zw(llm+1)=0. 1329 1331 1330 1332 do l=1,llm 1331 1333 qold=q(l) … … 1334 1336 enddo 1335 1337 1336 1338 1337 1339 return 1338 1340 end … … 1343 1345 SUBROUTINE advect_va(llm,omega,d_t_va,d_q_va,d_u_va,d_v_va, & 1344 1346 & q,temp,u,v,play) 1345 !itlmd 1347 !itlmd 1346 1348 !---------------------------------------------------------------------- 1347 ! Calcul de l'advection verticale (ascendance et subsidence) de 1349 ! Calcul de l'advection verticale (ascendance et subsidence) de 1348 1350 ! temperature et d'humidite. Hypothese : ce qui rentre de l'exterieur 1349 ! a les memes caracteristiques que l'air de la colonne 1D (WTG) ou 1350 ! sans WTG rajouter une advection horizontale 1351 !---------------------------------------------------------------------- 1351 ! a les memes caracteristiques que l'air de la colonne 1D (WTG) ou 1352 ! sans WTG rajouter une advection horizontale 1353 !---------------------------------------------------------------------- 1352 1354 implicit none 1353 1355 INCLUDE "YOMCST.h" … … 1371 1373 & /(play(l)-play(l+1)) 1372 1374 1373 d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:))/(play(l)-play(l+1)) 1374 1375 d_u_va(l)= -omgdown*(u(l)-u(l+1))/(play(l)-play(l+1)) 1376 d_v_va(l)= -omgdown*(v(l)-v(l+1))/(play(l)-play(l+1)) 1377 1378 1375 d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:))/(play(l)-play(l+1)) 1376 1377 d_u_va(l)= -omgdown*(u(l)-u(l+1))/(play(l)-play(l+1)) 1378 d_v_va(l)= -omgdown*(v(l)-v(l+1))/(play(l)-play(l+1)) 1379 1380 1379 1381 elseif(l.eq.llm) then 1380 1382 omgup=min(omega(l),0.0) … … 1387 1389 d_u_va(l)= -omgup*(u(l-1)-u(l))/(play(l-1)-play(l)) 1388 1390 d_v_va(l)= -omgup*(v(l-1)-v(l))/(play(l-1)-play(l)) 1389 1391 1390 1392 else 1391 1393 omgup=min(omega(l),0.0) … … 1400 1402 d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:)) & 1401 1403 & /(play(l)-play(l+1))- & 1402 & omgup*(q(l-1,:)-q(l,:))/(play(l-1)-play(l)) 1404 & omgup*(q(l-1,:)-q(l,:))/(play(l-1)-play(l)) 1403 1405 d_u_va(l)= -omgdown*(u(l)-u(l+1)) & 1404 1406 & /(play(l)-play(l+1))- & 1405 & omgup*(u(l-1)-u(l))/(play(l-1)-play(l)) 1407 & omgup*(u(l-1)-u(l))/(play(l-1)-play(l)) 1406 1408 d_v_va(l)= -omgdown*(v(l)-v(l+1)) & 1407 1409 & /(play(l)-play(l+1))- & 1408 1410 & omgup*(v(l-1)-v(l))/(play(l-1)-play(l)) 1409 1411 1410 1412 endif 1411 1413 1412 1414 enddo 1413 1415 !fin itlmd … … 1417 1419 SUBROUTINE lstendH(llm,nqtot,omega,d_t_va,d_q_va, & 1418 1420 & q,temp,u,v,play) 1419 !itlmd 1421 !itlmd 1420 1422 !---------------------------------------------------------------------- 1421 ! Calcul de l'advection verticale (ascendance et subsidence) de 1423 ! Calcul de l'advection verticale (ascendance et subsidence) de 1422 1424 ! temperature et d'humidite. Hypothese : ce qui rentre de l'exterieur 1423 ! a les memes caracteristiques que l'air de la colonne 1D (WTG) ou 1424 ! sans WTG rajouter une advection horizontale 1425 !---------------------------------------------------------------------- 1425 ! a les memes caracteristiques que l'air de la colonne 1D (WTG) ou 1426 ! sans WTG rajouter une advection horizontale 1427 !---------------------------------------------------------------------- 1426 1428 implicit none 1427 1429 INCLUDE "YOMCST.h" … … 1648 1650 !jyg< 1649 1651 ! Formule pour q : 1650 ! d_q = (1/tau) [rh_targ*qsat(T_new) - q] 1652 ! d_q = (1/tau) [rh_targ*qsat(T_new) - q] 1651 1653 ! 1652 1654 ! Cette formule remplace d_q = (1/tau) [rh_targ - rh] qsat(T_new) … … 1743 1745 & ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas & 1744 1746 & ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc) 1745 1747 1746 1748 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1747 1749 implicit none -
LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90
r5271 r5272 26 26 27 27 28 INCLUDE"1DUTILS.h"29 INCLUDE"1Dconv.h"28 #include "1DUTILS.h" 29 #include "1Dconv.h" 30 30 31 31 !#endif -
LMDZ6/trunk/libf/phylmd/dyn1d/paramet_mod_h.f90
r5271 r5272 1 link ../../dyn3d/paramet .h1 link ../../dyn3d/paramet_mod_h.f90 -
LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
r5271 r5272 14458 14458 14459 14459 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14460 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14461 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14460 14462 implicit none 14461 14463 … … 14464 14466 INCLUDE "YOMCST.h" 14465 14467 ! 14466 ! INCLUDE "paramet.h"14468 ! 14467 14469 14468 14470 ! inputs
Note: See TracChangeset
for help on using the changeset viewer.