Changeset 19
- Timestamp:
- 07/16/12 11:26:23 (12 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 1 added
- 30 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/advect.f90
r17 r19 1 1 MODULE advect_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 IMPLICIT NONE 6 4 -
codes/icosagcm/trunk/src/advect_tracer.f90
r17 r19 1 1 MODULE advect_tracer_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 PRIVATE 6 4 INTEGER,PARAMETER::iapp_tracvl= 3 … … 24 22 25 23 SUBROUTINE advect_tracer(f_ps,f_u, f_q) 26 USE domain_mod 27 USE field_mod 28 USE dimensions 29 USE grid_param 30 USE geometry 31 USE metric 24 USE icosa 32 25 USE advect_mod 33 26 USE disvert_mod … … 305 298 !c Shema d'advection " pseudo amont " . 306 299 !c ******************************************************************** 307 USE domain_mod 308 USE dimensions 309 USE grid_param 310 USE geometry 311 USE metric 300 USE icosa 312 301 IMPLICIT NONE 313 302 !c -
codes/icosagcm/trunk/src/caldyn.f90
r17 r19 1 1 MODULE caldyn_mod 2 USE genmod2 USE icosa 3 3 PRIVATE 4 4 CHARACTER(LEN=255),SAVE :: caldyn_type … … 9 9 10 10 SUBROUTINE init_caldyn(dt) 11 USE IOIPSL11 USE icosa 12 12 USE caldyn_gcm_mod, ONLY : init_caldyn_gcm=>init_caldyn 13 13 USE caldyn_adv_mod, ONLY : init_caldyn_adv=>init_caldyn … … 32 32 33 33 SUBROUTINE caldyn(it,f_phis, f_ps, f_theta_rhodz, f_u, f_dps, f_dtheta_rhodz, f_du) 34 USE field_mod34 USE icosa 35 35 USE caldyn_gcm_mod, ONLY : caldyn_gcm=>caldyn 36 36 USE caldyn_adv_mod, ONLY : caldyn_adv=>caldyn -
codes/icosagcm/trunk/src/caldyn_adv.f90
r17 r19 1 1 MODULE caldyn_adv_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 6 4 TYPE(t_field),POINTER :: f_out(:) … … 16 14 17 15 SUBROUTINE init_caldyn(dt) 18 USE IOIPSL16 USE icosa 19 17 IMPLICIT NONE 20 18 REAL(rstd),INTENT(IN) :: dt … … 31 29 32 30 SUBROUTINE allocate_caldyn 33 USE domain_mod 34 USE dimensions 35 USE geometry 36 USE metric 31 USE icosa 37 32 IMPLICIT NONE 38 33 … … 53 48 54 49 SUBROUTINE check_mass_conservation(f_ps,f_dps) 55 USE domain_mod 56 USE dimensions 57 USE geometry 50 USE icosa 58 51 IMPLICIT NONE 59 52 TYPE(t_field),POINTER :: f_ps(:) … … 95 88 96 89 SUBROUTINE caldyn(it,f_phis, f_ps, f_theta_rhodz, f_u, f_dps, f_dtheta_rhodz, f_du) 97 USE domain_mod 98 USE dimensions 99 USE grid_param 100 USE geometry 101 USE metric 102 USE write_field 90 USE icosa 103 91 USE vorticity_mod 104 92 USE kinetic_mod … … 161 149 162 150 SUBROUTINE compute_caldyn(phis, ps, theta_rhodz, u, dps, dtheta_rhodz, du) 163 USE domain_mod 164 USE dimensions 165 USE grid_param 166 USE geometry 167 USE metric 151 USE icosa 168 152 USE disvert_mod 169 153 IMPLICIT NONE -
codes/icosagcm/trunk/src/caldyn_gcm.f90
r17 r19 1 1 MODULE caldyn_gcm_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 6 4 PRIVATE … … 19 17 20 18 SUBROUTINE init_caldyn(dt) 21 USE IOIPSL19 USE icosa 22 20 IMPLICIT NONE 23 21 REAL(rstd),INTENT(IN) :: dt … … 34 32 35 33 SUBROUTINE allocate_caldyn 36 USE domain_mod 37 USE dimensions 38 USE geometry 39 USE metric 34 USE icosa 40 35 IMPLICIT NONE 41 36 … … 56 51 57 52 SUBROUTINE check_mass_conservation(f_ps,f_dps) 58 USE domain_mod 59 USE dimensions 60 USE geometry 53 USE icosa 61 54 IMPLICIT NONE 62 55 TYPE(t_field),POINTER :: f_ps(:) … … 98 91 99 92 SUBROUTINE caldyn(it,f_phis, f_ps, f_theta_rhodz, f_u, f_dps, f_dtheta_rhodz, f_du) 100 USE domain_mod 101 USE dimensions 102 USE grid_param 103 USE geometry 104 USE metric 105 USE write_field 93 USE icosa 106 94 USE vorticity_mod 107 95 USE kinetic_mod … … 184 172 185 173 SUBROUTINE compute_caldyn(phis, ps, theta_rhodz, u, dps, dtheta_rhodz, du) 186 USE domain_mod 187 USE dimensions 188 USE grid_param 189 USE geometry 190 USE metric 174 USE icosa 191 175 USE disvert_mod 192 176 IMPLICIT NONE -
codes/icosagcm/trunk/src/caldyn_sw.f90
r15 r19 1 1 MODULE caldyn_sw_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 PRIVATE 6 4 TYPE(t_field),POINTER,SAVE :: f_Fe(:) … … 30 28 31 29 SUBROUTINE allocate_caldyn 32 USE domain_mod 33 USE dimensions 34 USE geometry 35 USE metric 30 USE icosa 36 31 IMPLICIT NONE 37 32 INTEGER :: ind,i,j … … 109 104 110 105 SUBROUTINE swap_caldyn(ind) 106 USE icosa 111 107 IMPLICIT NONE 112 108 INTEGER,INTENT(IN) :: ind … … 126 122 127 123 SUBROUTINE caldyn(f_h, f_u, f_dh, f_du) 128 USE domain_mod 129 USE dimensions 130 USE grid_param 131 USE geometry 132 USE metric 133 USE write_field 124 USE icosa 134 125 IMPLICIT NONE 135 126 TYPE(t_field),POINTER :: f_h(:) … … 177 168 178 169 SUBROUTINE compute_caldyn(hi,ue,dhi,due) 179 USE domain_mod 180 USE dimensions 181 USE geometry 182 USE metric 170 USE icosa 183 171 IMPLICIT NONE 184 172 REAL(rstd),INTENT(IN) :: hi(iim*jjm) … … 423 411 424 412 SUBROUTINE write_caldyn 425 USE write_field 426 USE domain_mod 427 USE dimensions 428 USE geometry 429 USE metric 413 USE icosa 430 414 IMPLICIT NONE 431 415 … … 459 443 460 444 SUBROUTINE Compute_PV 461 USE domain_mod 462 USE dimensions 463 USE geometry 464 USE metric 465 USE write_field 445 USE icosa 466 446 IMPLICIT NONE 467 447 REAL(rstd) :: PV … … 495 475 496 476 SUBROUTINE Compute_enstrophy 497 USE domain_mod 498 USE dimensions 499 USE geometry 500 USE metric 501 USE write_field 477 USE icosa 502 478 503 479 IMPLICIT NONE -
codes/icosagcm/trunk/src/caldyn_wave.f90
r12 r19 1 1 MODULE caldyn_wave_mod 2 USE genmod 3 USE field_mod 4 2 5 3 6 4 CONTAINS … … 19 17 20 18 SUBROUTINE init_wave(hi,ue) 21 USE domain_mod 22 USE dimensions 23 USE geometry 24 USE metric 25 USE spherical_geom_mod 19 USE icosa 26 20 IMPLICIT NONE 27 21 REAL(rstd),INTENT(OUT) :: hi(iim*jjm) … … 49 43 50 44 SUBROUTINE caldyn(f_h, f_u, f_dh, f_du) 51 USE domain_mod 52 USE dimensions 53 USE grid_param 54 USE geometry 55 USE metric 56 USE write_field 45 USE icosa 57 46 IMPLICIT NONE 58 47 TYPE(t_field),POINTER :: f_h(:) … … 97 86 98 87 SUBROUTINE compute_caldyn(hi,ue,dhi,due) 99 USE domain_mod 100 USE dimensions 101 USE geometry 102 USE metric 103 88 USE icosa 104 89 IMPLICIT NONE 105 90 REAL(rstd),INTENT(IN) :: hi(iim*jjm) -
codes/icosagcm/trunk/src/dissip_gcm.f90
r15 r19 1 1 MODULE dissip_gcm_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 6 4 TYPE(t_field),POINTER,SAVE :: f_gradrot(:) … … 26 24 27 25 SUBROUTINE allocate_dissip 28 USE grid_param26 USE icosa 29 27 IMPLICIT NONE 30 28 CALL allocate_field(f_gradrot,field_u,type_real,llm) … … 36 34 37 35 SUBROUTINE init_dissip(dt) 38 USE domain_mod 39 USE dimensions 40 USE geometry 41 USE metric 42 USE ioipsl 36 USE icosa 43 37 USE disvert_mod 44 USE write_field45 38 46 39 IMPLICIT NONE … … 357 350 358 351 SUBROUTINE dissip(f_ue,f_due,f_ps,f_theta_rhodz,f_dtheta_rhodz) 359 USE domain_mod 360 USE dimensions 361 USE geometry 362 USE metric 363 USE grid_param 352 USE icosa 364 353 USE theta2theta_rhodz_mod 365 354 IMPLICIT NONE … … 407 396 408 397 SUBROUTINE compute_dissip(ue,due,ps,theta_rhodz,dtheta_rhodz) 409 USE domain_mod 410 USE dimensions 411 USE geometry 412 USE metric 413 USE grid_param 398 USE icosa 414 399 USE theta2theta_rhodz_mod 415 400 IMPLICIT NONE … … 491 476 492 477 SUBROUTINE gradiv(ue,gradivu_e,ll) 493 USE domain_mod 494 USE dimensions 495 USE geometry 496 USE metric 478 USE icosa 497 479 IMPLICIT NONE 498 480 INTEGER,INTENT(IN) :: ll … … 563 545 564 546 SUBROUTINE divgrad(theta,divgrad_i,ll) 565 USE domain_mod 566 USE dimensions 567 USE geometry 568 USE metric 547 USE icosa 569 548 IMPLICIT NONE 570 549 INTEGER,INTENT(IN) :: ll … … 634 613 635 614 SUBROUTINE gradrot(ue,gradrot_e,ll) 636 USE domain_mod 637 USE dimensions 638 USE geometry 639 USE metric 615 USE icosa 640 616 IMPLICIT NONE 641 617 INTEGER,INTENT(IN) :: ll -
codes/icosagcm/trunk/src/dissip_sw.f90
r15 r19 1 1 MODULE dissip_sw_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 6 4 TYPE(t_field),POINTER,SAVE :: f_gradrot(:) … … 28 26 29 27 SUBROUTINE init_dissip(dt) 30 USE domain_mod 31 USE dimensions 32 USE geometry 33 USE metric 34 USE ioipsl 28 USE icosa 35 29 36 30 IMPLICIT NONE … … 229 223 230 224 SUBROUTINE dissip(f_ue,f_due) 231 USE domain_mod 232 USE dimensions 233 USE geometry 234 USE metric 225 USE icosa 235 226 IMPLICIT NONE 236 227 TYPE(t_field),POINTER :: f_ue(:) … … 271 262 272 263 SUBROUTINE gradiv(ue,gradivu_e) 273 USE domain_mod 274 USE dimensions 275 USE geometry 276 USE metric 264 USE icosa 277 265 IMPLICIT NONE 278 266 REAL(rstd),INTENT(IN) :: ue(iim*3*jjm) … … 323 311 324 312 SUBROUTINE gradrot(ue,gradrot_e,ind,sum1,sum2) 325 USE domain_mod 326 USE dimensions 327 USE geometry 328 USE metric 313 USE icosa 329 314 IMPLICIT NONE 330 315 REAL(rstd),INTENT(IN) :: ue(iim*3*jjm) -
codes/icosagcm/trunk/src/disvert.f90
r17 r19 1 1 MODULE disvert_mod 2 USE prec2 USE icosa 3 3 REAL(rstd), SAVE, POINTER :: ap(:) 4 4 REAL(rstd), SAVE, POINTER :: bp(:) … … 10 10 USE disvert_std_mod, ONLY: ap_std=>ap, bp_std=>bp, presnivs_std=>presnivs, init_disvert_std=>init_disvert 11 11 USE disvert_ncar_mod, ONLY: ap_ncar=>ap, bp_ncar=>bp, presnivs_ncar=>presnivs, init_disvert_ncar=>init_disvert 12 USE i oipsl12 USE icosa 13 13 IMPLICIT NONE 14 14 CHARACTER(LEN=255) :: disvert_type = 'std' -
codes/icosagcm/trunk/src/disvert_ncar.f90
r17 r19 1 1 MODULE disvert_ncar_mod 2 USE prec2 USE icosa 3 3 4 4 REAL(rstd), SAVE, ALLOCATABLE,TARGET :: ap(:) … … 10 10 11 11 SUBROUTINE init_disvert 12 USE grid_param 13 USE ioipsl 12 USE icosa 14 13 IMPLICIT NONE 15 14 … … 24 23 25 24 SUBROUTINE disvert(ap,bp,presnivs) 26 USE earth_const 27 USE math_const 28 USE grid_param 25 USE icosa 29 26 IMPLICIT NONE 30 27 REAL(rstd),INTENT(OUT) :: ap(:) -
codes/icosagcm/trunk/src/disvert_std.f90
r17 r19 1 1 MODULE disvert_std_mod 2 USE prec2 USE icosa 3 3 REAL(rstd), SAVE, ALLOCATABLE,TARGET :: ap(:) 4 4 REAL(rstd), SAVE, ALLOCATABLE,TARGET :: bp(:) … … 8 8 9 9 SUBROUTINE init_disvert 10 USE grid_param10 USE icosa 11 11 IMPLICIT NONE 12 12 … … 21 21 22 22 SUBROUTINE disvert(ap,bp,presnivs) 23 USE earth_const 24 USE math_const 25 USE grid_param 23 USE icosa 26 24 IMPLICIT NONE 27 25 REAL(rstd),INTENT(OUT) :: ap(:) -
codes/icosagcm/trunk/src/etat0.f90
r17 r19 5 5 6 6 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 7 USE field_mod 8 USE domain_mod 9 USE domain_mod 10 USE dimensions 11 USE grid_param 12 USE geometry 7 USE icosa 13 8 USE etat0_jablonowsky06_mod, ONLY : etat0_jablonowsky06=>etat0 14 9 USE etat0_academic_mod, ONLY : etat0_academic=>etat0 15 10 USE etat0_ncar_mod, ONLY : etat0_ncar=>etat0 16 USE ioipsl17 11 IMPLICIT NONE 18 12 TYPE(t_field),POINTER :: f_ps(:) -
codes/icosagcm/trunk/src/etat0_academic.f90
r17 r19 7 7 8 8 SUBROUTINE test_etat0_academic 9 USE field_mod 10 USE domain_mod 11 USE dimensions 12 USE grid_param 13 USE geometry 14 USE write_field 9 USE icosa 15 10 USE kinetic_mod 16 11 IMPLICIT NONE … … 48 43 49 44 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 50 USE field_mod 51 USE domain_mod 52 USE domain_mod 53 USE dimensions 54 USE grid_param 55 USE geometry 45 USE icosa 56 46 IMPLICIT NONE 57 47 TYPE(t_field),POINTER :: f_ps(:) … … 80 70 81 71 SUBROUTINE compute_etat0_academic(ps, phis, theta_rhodz, u) 82 USE domain_mod 83 USE dimensions 84 USE grid_param 85 USE geometry 86 USE metric 72 USE icosa 87 73 USE disvert_mod 88 USE spherical_geom_mod89 74 USE pression_mod 90 75 USE exner_mod -
codes/icosagcm/trunk/src/etat0_jablonowsky06.f90
r17 r19 1 1 MODULE etat0_jablonowsky06_mod 2 USE genmod2 USE icosa 3 3 PRIVATE 4 4 REAL(rstd),PARAMETER :: eta0=0.252 … … 16 16 17 17 SUBROUTINE test_etat0_jablonowsky06 18 USE field_mod 19 USE domain_mod 20 USE dimensions 21 USE grid_param 22 USE geometry 23 USE write_field 18 USE icosa 24 19 USE kinetic_mod 25 20 USE pression_mod … … 79 74 80 75 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 81 USE field_mod 82 USE domain_mod 83 USE domain_mod 84 USE dimensions 85 USE grid_param 86 USE geometry 76 USE icosa 87 77 IMPLICIT NONE 88 78 TYPE(t_field),POINTER :: f_ps(:) … … 114 104 115 105 SUBROUTINE compute_etat0_jablonowsky06(ps, phis, theta_rhodz, u) 116 USE domain_mod 117 USE dimensions 118 USE grid_param 119 USE geometry 120 USE metric 106 USE icosa 121 107 USE disvert_mod 122 USE spherical_geom_mod123 USE vector124 108 USE pression_mod 125 109 USE exner_mod -
codes/icosagcm/trunk/src/etat0_ncar.f90
r17 r19 1 1 MODULE etat0_ncar_mod 2 USE genmod2 USE icosa 3 3 PRIVATE 4 4 … … 28 28 29 29 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u,f_q) 30 USE field_mod 31 USE domain_mod 32 USE domain_mod 33 USE dimensions 34 USE grid_param 35 USE geometry 30 USE icosa 36 31 IMPLICIT NONE 37 32 TYPE(t_field),POINTER :: f_ps(:) … … 62 57 63 58 SUBROUTINE compute_etat0_ncar(ps, phis, theta_rhodz, u, q) 64 USE domain_mod 65 USE dimensions 66 USE grid_param 67 USE geometry 68 USE metric 59 USE icosa 69 60 USE disvert_mod 70 USE spherical_geom_mod71 USE vector72 61 USE pression_mod 73 62 USE exner_mod 74 63 USE geopotential_mod 75 64 USE theta2theta_rhodz_mod 76 USE ioipsl77 65 IMPLICIT NONE 78 66 REAL(rstd),INTENT(OUT) :: ps(iim*jjm) -
codes/icosagcm/trunk/src/etat0_williamson.f90
r12 r19 1 1 MODULE etat0_williamson_mod 2 USE genmod2 USE icosa 3 3 PRIVATE 4 4 REAL(rstd), PARAMETER :: h0=8.E3 … … 12 12 13 13 SUBROUTINE etat0_williamson(f_h,f_u) 14 USE field_mod 15 USE domain_mod 16 USE domain_mod 17 USE dimensions 18 USE grid_param 19 USE geometry 14 USE icosa 20 15 IMPLICIT NONE 21 16 TYPE(t_field),POINTER :: f_h(:) … … 37 32 38 33 SUBROUTINE compute_etat0_williamson(hi, ue) 39 USE domain_mod 40 USE dimensions 41 USE grid_param 42 USE geometry 43 USE metric 44 USE spherical_geom_mod 45 USE vector 46 USE earth_const 34 USE icosa 47 35 IMPLICIT NONE 48 36 REAL(rstd),INTENT(OUT) :: hi(iim*jjm) -
codes/icosagcm/trunk/src/exner.f90
r12 r19 4 4 5 5 SUBROUTINE exner(f_ps,f_p,f_pks,f_pk) 6 USE transfert_mod 7 USE field_mod 8 USE dimensions 9 USE geometry 10 USE domain_mod 6 USE icosa 11 7 IMPLICIT NONE 12 8 TYPE(t_field), POINTER :: f_ps(:) … … 34 30 35 31 SUBROUTINE compute_exner(ps,p,pks,pk,offset) 36 USE dimensions 37 USE geometry 38 USE metric 32 USE icosa 39 33 USE disvert_mod 40 34 USE pression_mod -
codes/icosagcm/trunk/src/geopotential_mod.f90
r12 r19 4 4 5 5 SUBROUTINE geopotential(f_phis,f_pks,f_pk,f_theta,f_phi) 6 USE transfert_mod 7 USE field_mod 8 USE dimensions 9 USE geometry 10 USE domain_mod 6 USE icosa 11 7 IMPLICIT NONE 12 8 TYPE(t_field), POINTER :: f_phis(:) … … 37 33 38 34 SUBROUTINE compute_geopotential(phis,pks,pk,theta,phi,offset) 39 USE dimensions 40 USE geometry 41 USE metric 35 USE icosa 42 36 IMPLICIT NONE 43 37 REAL(rstd),INTENT(IN) :: phis(iim*jjm) -
codes/icosagcm/trunk/src/guided_mod.f90
r17 r19 7 7 8 8 SUBROUTINE init_guided(dt) 9 USE prec 10 USE ioipsl 9 USE icosa 11 10 USE guided_ncar_mod, ONLY : init_guided_ncar => init_guided 12 11 IMPLICIT NONE … … 32 31 33 32 SUBROUTINE guided(it, f_ps, f_theta_rhodz, f_u, f_q) 34 USE field_mod 35 USE domain_mod 36 USE dimensions 37 USE geometry 33 USE icosa 38 34 USE guided_ncar_mod, ONLY : guided_ncar => guided 39 USE ioipsl40 35 IMPLICIT NONE 41 36 INTEGER, INTENT(IN) :: it -
codes/icosagcm/trunk/src/guided_ncar_mod.f90
r17 r19 1 1 MODULE guided_ncar_mod 2 USE genmod2 USE icosa 3 3 PRIVATE 4 4 … … 22 22 23 23 SUBROUTINE guided(it, f_ps, f_theta_rhodz, f_u, f_q) 24 USE field_mod 25 USE domain_mod 26 USE dimensions 27 USE geometry 24 USE icosa 28 25 IMPLICIT NONE 29 26 INTEGER, INTENT(IN) :: it … … 48 45 49 46 SUBROUTINE wind_profile(it,ue) 50 USE domain_mod 51 USE dimensions 52 USE geometry 53 USE metric 54 USE spherical_geom_mod 55 USE vector 56 USE earth_const 47 USE icosa 57 48 IMPLICIT NONE 58 49 INTEGER,INTENT(IN) :: it -
codes/icosagcm/trunk/src/icosa_gcm.f90
r15 r19 1 1 PROGRAM ICOSA_GCM 2 USE spherical_geom_mod 3 USE metric 4 USE domain_mod 5 USE field_mod 6 USE write_field 7 USE geometry 8 USE dimensions 2 USE icosa 9 3 USE timeloop_gcm_mod 10 4 USE transfert_mod 11 5 USE disvert_mod 12 6 USE etat0_mod 13 USE transfert_mod14 USE vector15 7 USE wind_mod 16 USE grid_param17 8 IMPLICIT NONE 18 9 -
codes/icosagcm/trunk/src/icosa_sw.f90
r15 r19 1 1 PROGRAM ICOSA_SW 2 USE spherical_geom_mod 3 USE metric 4 USE domain_mod 5 USE field_mod 6 USE write_field 7 USE geometry 8 USE dimensions 2 USE icosa 9 3 USE timeloop_sw_mod 10 4 USE transfert_mod 11 5 USE dissip_sw_mod 12 6 USE disvert_mod 13 USE transfert_mod14 7 IMPLICIT NONE 15 8 -
codes/icosagcm/trunk/src/kinetic.f90
r12 r19 5 5 6 6 SUBROUTINE kinetic(f_ue,f_Ki) 7 USE transfert_mod 8 USE field_mod 9 USE dimensions 10 USE geometry 11 USE domain_mod 7 USE icosa 12 8 IMPLICIT NONE 13 9 TYPE(t_field), POINTER :: f_ue(:) … … 32 28 33 29 SUBROUTINE compute_kinetic(ue, Ki) 34 USE dimensions 35 USE geometry 36 USE metric 30 USE icosa 37 31 IMPLICIT NONE 38 32 REAL(rstd),INTENT(IN) :: ue(3*iim*jjm,llm) -
codes/icosagcm/trunk/src/pression.f90
r15 r19 4 4 5 5 SUBROUTINE pression(f_ps,f_p) 6 USE transfert_mod 7 USE field_mod 8 USE dimensions 9 USE geometry 10 USE domain_mod 6 USE icosa 11 7 IMPLICIT NONE 12 8 TYPE(t_field), POINTER :: f_ps(:) … … 28 24 29 25 SUBROUTINE compute_pression(ps,p,offset) 30 USE dimensions 31 USE geometry 32 USE metric 26 USE icosa 33 27 USE disvert_mod 34 28 IMPLICIT NONE -
codes/icosagcm/trunk/src/theta_rhodz.f90
r15 r19 4 4 5 5 SUBROUTINE theta_rhodz2theta(f_ps,f_theta_rhodz,f_theta) 6 USE transfert_mod 7 USE field_mod 8 USE dimensions 9 USE geometry 10 USE domain_mod 6 USE icosa 11 7 IMPLICIT NONE 12 8 TYPE(t_field), POINTER :: f_ps(:) … … 31 27 32 28 SUBROUTINE theta_rhodz2temperature(f_ps,f_theta_rhodz,f_temp) 33 USE transfert_mod 34 USE field_mod 35 USE dimensions 36 USE geometry 37 USE domain_mod 29 USE icosa 38 30 IMPLICIT NONE 39 31 TYPE(t_field), POINTER :: f_ps(:) … … 58 50 59 51 SUBROUTINE theta2theta_rhodz(f_ps,f_theta,f_theta_rhodz) 60 USE transfert_mod 61 USE field_mod 62 USE dimensions 63 USE geometry 64 USE domain_mod 52 USE icosa 65 53 IMPLICIT NONE 66 54 TYPE(t_field), POINTER :: f_ps(:) … … 85 73 86 74 SUBROUTINE compute_theta2theta_rhodz(ps,theta, theta_rhodz,offset) 87 USE dimensions 88 USE geometry 89 USE metric 75 USE icosa 90 76 USE pression_mod 91 77 IMPLICIT NONE … … 124 110 125 111 SUBROUTINE compute_theta_rhodz2theta(ps,theta_rhodz,theta,offset) 126 USE dimensions 127 USE geometry 128 USE metric 112 USE icosa 129 113 USE pression_mod 130 114 IMPLICIT NONE … … 161 145 162 146 SUBROUTINE compute_theta_rhodz2temperature(ps,theta_rhodz,temp,offset) 163 USE dimensions 164 USE geometry 165 USE metric 166 USE earth_const 147 USE icosa 167 148 USE pression_mod 168 149 USE exner_mod -
codes/icosagcm/trunk/src/timeloop_gcm.f90
r17 r19 1 1 MODULE timeloop_gcm_mod 2 USE genmod 3 USE transfert_mod 4 USE etat0_mod 2 5 3 6 4 CONTAINS 7 5 8 6 SUBROUTINE timeloop 9 USE field_mod 10 USE domain_mod 11 USE write_field 12 USE dimensions 13 USE geometry 14 USE transfert_mod 15 USE metric 7 USE icosa 16 8 USE dissip_gcm_mod 17 USE ioipsl18 9 USE caldyn_mod 19 10 USE theta2theta_rhodz_mod -
codes/icosagcm/trunk/src/timeloop_sw.f90
r17 r19 1 1 MODULE timeloop_sw_mod 2 USE genmod 3 USE transfert_mod 2 USE icosa 4 3 USE etat0_williamson_mod 5 4 … … 9 8 10 9 SUBROUTINE timeloop 11 USE field_mod 12 USE domain_mod 13 ! USE wave_mod 10 USE icosa 14 11 USE caldyn_sw_mod 15 USE write_field16 USE dimensions17 USE geometry18 USE transfert_mod19 USE metric20 12 USE dissip_sw_mod 21 USE ioipsl22 23 13 USE etat0_mod 24 14 IMPLICIT NONE -
codes/icosagcm/trunk/src/vorticity.f90
r12 r19 4 4 5 5 SUBROUTINE vorticity(f_ue,f_vort) 6 USE transfert_mod 7 USE field_mod 8 USE dimensions 9 USE geometry 10 USE domain_mod 6 USE icosa 11 7 IMPLICIT NONE 12 8 TYPE(t_field), POINTER :: f_ue(:) … … 31 27 32 28 SUBROUTINE compute_vorticity(ue,vort) 33 USE dimensions 34 USE geometry 35 USE metric 29 USE icosa 36 30 USE disvert_mod 37 31 IMPLICIT NONE -
codes/icosagcm/trunk/src/wind.f90
r15 r19 7 7 8 8 SUBROUTINE compute_wind_centered(ue,ucenter) 9 USE geometry 10 USE domain_mod 11 USE dimensions 12 USE metric 9 USE icosa 13 10 14 11 IMPLICIT NONE … … 35 32 36 33 SUBROUTINE compute_wind_on_edge(ue,uedge) 37 USE geometry 38 USE domain_mod 39 USE dimensions 40 USE metric 34 USE icosa 41 35 42 36 IMPLICIT NONE … … 65 59 66 60 SUBROUTINE compute_tangential_compound(ue,ut) 67 USE geometry 68 USE domain_mod 69 USE dimensions 70 USE metric 61 USE icosa 71 62 IMPLICIT NONE 72 63 REAL(rstd) :: ue(3*iim*jjm,llm) … … 123 114 124 115 SUBROUTINE compute_wind_lonlat_compound(u, ulon, ulat) 125 USE geometry 126 USE domain_mod 127 USE dimensions 128 USE metric 116 USE icosa 129 117 130 118 IMPLICIT NONE … … 155 143 156 144 SUBROUTINE compute_wind_from_lonlat_compound(ulon, ulat, u) 157 USE geometry 158 USE domain_mod 159 USE dimensions 160 USE metric 145 USE icosa 161 146 162 147 IMPLICIT NONE … … 182 167 183 168 SUBROUTINE compute_wind_centered_lonlat_compound(uc, ulon, ulat) 184 USE geometry 185 USE domain_mod 186 USE dimensions 187 USE metric 169 USE icosa 188 170 189 171 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.