/[lmdze]/trunk/filtrez/filtreg_hemisph.f
ViewVC logotype

Annotation of /trunk/filtrez/filtreg_hemisph.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 266 - (hide annotations)
Thu Apr 19 17:54:55 2018 UTC (6 years, 1 month ago) by guez
File size: 739 byte(s) 
Define macros of the preprocessor CPP_IIM, CPP_JJM, CPP_LLM so we can
control the resolution from the compilation command, and automate
compilation for several resolutions.

In module yoethf_m, transform variables into named constants. So we do
not need procedure yoethf any longer.

Bug fix in program test_inter_barxy, missing calls to fyhyp and fxhyp,
and definition of rlatu.

Remove variable iecri of module conf_gcm_m. The files dyn_hist*.nc are
written every time step. We are simplifying the output system, pending
replacement by a whole new system.

Modify possible value of vert_sampling from "param" to
"strato_custom", following LMDZ. Default values of corresponding
namelist variables are now the values used for LMDZ CMIP6.
1 guez 136 module filtreg_hemisph_m
2    
3     implicit none
4    
5     contains
6    
7 guez 141 subroutine filtreg_hemisph(champ, sdd, matri)
8 guez 136
9 guez 265 USE dimensions, ONLY: iim
10 guez 136
11     REAL, intent(inout):: champ(:, :, :) ! (iim + 1, :, :)
12 guez 168 REAL, intent(in):: sdd(:) ! (iim) xprim[uv]^{\pm 1/2}
13 guez 136
14 guez 266 real, intent(in):: matri(:, :, :) ! (iim, iim, :)
15 guez 169 ! filtering matrix, last dimension is latitude
16 guez 168
17 guez 136 ! Local:
18     integer l, j
19    
20     !-----------------------------------------------------------------
21    
22 guez 266 forall (j = 1:size(champ, 2), l = 1:size(champ, 3)) &
23     champ(:iim, j, l) = champ(:iim, j, l) &
24     + matmul(matri(:, :, j), champ(:iim, j, l) * sdd) / sdd
25 guez 142 champ(iim + 1, :, :) = champ(1, :, :)
26    
27 guez 136 end subroutine filtreg_hemisph
28    
29     end module filtreg_hemisph_m
  ViewVC Help
Powered by ViewVC 1.1.21