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

Annotation of /trunk/dyn3d/fxyhyper.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 119 - (hide annotations)
Wed Jan 7 14:34:57 2015 UTC (9 years, 5 months ago) by guez
File size: 915 byte(s) 
Removed procedure fxyhyper. Useless intermediary between inigeom and
fxhyp, fyhyp. Removed argument yprimv of fyhyp, not used in
inigeom. Downgraded rlonm025 and rlonp025 from arguments to local
variables of fxhyp, not used in inigeom. Downgraded arguments
champmin, champmax of fxhyp and fyhyp to local variables: print them
in fxhyp and fyhyp instead of fxyhyper.

Removed arguments xzoomdeg, grossism, dzooma, tau of fxhyp. Use
directly module variables clon, grossismx, dzoomx, taux instead.

Removed arguments yzoomdeg, grossism, dzooma, tau of fyhyp. Use
directly module variables clat, grossismy, dzoomy, tauy instead.

In procedure yamada4, l0 does not need the save attribute. It is
defined at each call.
1 guez 70 module fxyhyper_m
2 guez 3
3 guez 70 IMPLICIT NONE
4 guez 3
5 guez 70 contains
6 guez 38
7 guez 119 SUBROUTINE fxyhyper(rlatu, yprimu, rlatv, rlatu1, yprimu1, rlatu2, yprimu2, &
8     rlonu, xprimu, rlonv, xprimv, xprimm025, xprimp025)
9 guez 3
10 guez 97 ! From dyn3d/fxyhyper.F, version 1.1.1.1, 2004/05/19 12:53:06
11 guez 3
12 guez 78 use fxhyp_m, only: fxhyp
13 guez 97 use fyhyp_m, only: fyhyp
14 guez 3
15 guez 119 REAL, intent(out):: rlatu(:), yprimu(:) ! (jjm + 1)
16     real, intent(out):: rlatv(:) ! (jjm)
17     real, intent(out):: rlatu1(:), yprimu1(:), rlatu2(:), yprimu2(:) ! (jjm)
18     REAL, intent(out):: rlonu(:), xprimu(:), rlonv(:), xprimv(:) ! (iim + 1)
19     REAL, intent(out):: xprimm025(:) ! (iim + 1)
20     REAL, intent(out):: xprimp025(:) ! (iim + 1)
21 guez 3
22 guez 70 !----------------------------------------------------------
23 guez 38
24 guez 119 CALL fyhyp(rlatu, yprimu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1)
25     CALL fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)
26 guez 3
27 guez 70 END SUBROUTINE fxyhyper
28    
29     end module fxyhyper_m
  ViewVC Help
Powered by ViewVC 1.1.21