/[lmdze]/trunk/dyn3d/laplacien_rot.f
ViewVC logotype

Contents of /trunk/dyn3d/laplacien_rot.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 266 - (show annotations)
Thu Apr 19 17:54:55 2018 UTC (6 years ago) by guez
File size: 1157 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
2 ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_rot.F,v 1.1.1.1
3 ! 2004/05/19 12:53:07 lmdzadmin Exp $
4
5 SUBROUTINE laplacien_rot(klevel, rotin, rotout, ghx, ghy)
6
7 ! P. Le Van
8
9 ! ************************************************************
10 ! ... calcul de ( rotat x nxgrad ) du rotationnel rotin .
11 ! ************************************************************
12
13 ! klevel et rotin sont des arguments d'entree pour le s-prog
14 ! rotout est un argument de sortie pour le s-prog
15
16 USE dimensions
17 USE paramet_m
18 USE comgeom
19 USE filtreg_v_m, ONLY: filtreg_v
20 use nxgrad_m, only: nxgrad
21 use rotatf_m, only: rotatf
22
23 IMPLICIT NONE
24
25
26
27 ! .......... variables en arguments .............
28
29 INTEGER, INTENT (IN) :: klevel
30 REAL rotin(iim + 1, jjm, klevel), rotout(ip1jm, klevel)
31
32 ! .......... variables locales ................
33
34 REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
35 ! ........................................................
36
37
38 CALL filtreg_v(rotin, intensive = .true.)
39
40 CALL nxgrad(klevel, rotin, ghx, ghy)
41 CALL rotatf(klevel, ghx, ghy, rotout)
42
43 RETURN
44 END SUBROUTINE laplacien_rot
  ViewVC Help
Powered by ViewVC 1.1.21