Parent Directory | Revision Log
Created procedure test_disvert (following LMDZ). Added procedures hybrid and funcd in module disvert_m. Upgraded compute_ab from internal procedure of disvert to module procedure. Added variables y, ya in module disvert_m. Upgraded s from local variable of procedure disvert to module variable. Renamed allowed value of variable vert_sampling in procedure disvert from "read" to "read_hybrid". Added possibility to read pressure values, value "read_pressure". Replaced vertical distribution for value "param" by the distribution "strato_correct" from LMDZ (but kept the value "param"). In case "tropo", replaced 1 by dsigmin (following LMDZ). In case "strato", replaced 0.3 by dsigmin (following LMDZ). Changed computation of bp in procedure compute_ab. Removed debugindex case in clmain. Removed useless argument rlon of procedure clmain. Removed useless variables ytaux, ytauy of procedure clmain. Removed intermediary variables tsol, qsol, tsolsrf, tslab in procedure etat0. Removed variable ok_veget:. coupling with the model Orchid is not possible. Removed variable ocean: modeling an ocean slab is not possible. Removed useless variables tmp_rriv and tmp_rcoa from module interface_surf. Moved initialization of variables da, mp, phi in procedure physiq to to inside the test iflag_con >= 3.
1 | module gath2cpl_m |
2 | |
3 | ! From phylmd/interface_surf.F90, version 1.8, 2005/05/25 13:10:09 |
4 | |
5 | implicit none |
6 | |
7 | contains |
8 | |
9 | SUBROUTINE gath2cpl(champ_in, champ_out, klon, knon, iim, jjm, knindex) |
10 | |
11 | ! Cette routine ecrit un champ 'gathered' sur la grille 2D pour le passer |
12 | ! au coupleur. |
13 | ! |
14 | ! |
15 | ! input: |
16 | ! champ_in champ sur la grille gathere |
17 | ! knon nombre de points dans le domaine a traiter |
18 | ! knindex index des points de la surface a traiter |
19 | ! klon taille de la grille |
20 | ! iim,jjm dimension de la grille 2D |
21 | ! |
22 | ! output: |
23 | ! champ_out champ sur la grille 2D |
24 | ! |
25 | ! input |
26 | integer :: klon, knon, iim, jjm |
27 | real, dimension(klon) :: champ_in |
28 | integer, dimension(klon) :: knindex |
29 | ! output |
30 | real, dimension(iim,jjm+1) :: champ_out |
31 | ! local |
32 | integer :: i, ig, j |
33 | real, dimension(klon) :: tamp |
34 | |
35 | !-------------------------------------------------------------------- |
36 | |
37 | tamp = 0. |
38 | do i = 1, knon |
39 | ig = knindex(i) |
40 | tamp(ig) = champ_in(i) |
41 | enddo |
42 | ig = 1 |
43 | champ_out(:,1) = tamp(ig) |
44 | do j = 2, jjm |
45 | do i = 1, iim |
46 | ig = ig + 1 |
47 | champ_out(i,j) = tamp(ig) |
48 | enddo |
49 | enddo |
50 | ig = ig + 1 |
51 | champ_out(:,jjm+1) = tamp(ig) |
52 | |
53 | END SUBROUTINE gath2cpl |
54 | |
55 | end module gath2cpl_m |
ViewVC Help | |
Powered by ViewVC 1.1.21 |