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

Annotation of /trunk/dyn3d/scopy.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 57 - (hide annotations)
Mon Jan 30 12:54:02 2012 UTC (12 years, 4 months ago) by guez
Original Path: trunk/libf/dyn3d/scopy.f90
File size: 512 byte(s)
Write used namelists to file "" instead of standard output.

Avoid aliasing in "inidissip" in calls to "divgrad2", "divgrad",
"gradiv2", "gradiv", "nxgraro2" and "nxgrarot". Add a degenerate
dimension to arrays so they have rank 3, like the dummy arguments in
"divgrad2", "divgrad", "gradiv2", "gradiv", "nxgraro2" and "nxgrarot".

Extract the initialization part from "bilan_dyn" and make a separate
procedure, "init_dynzon", from it.

Move variables from modules "iniprint" and "logic" to module
"conf_gcm_m".

Promote internal procedures of "fxy" to private procedures of module
"fxy_m".

Extracted documentation from "inigeom". Removed useless "save"
attributes. Removed useless intermediate variables. Extracted
processing of poles from loop on latitudes. Write coordinates to file
"longitude_latitude.txt" instead of standard output.

Do not use ozone tracer for radiative transfer.

1 guez 30 subroutine scopy(n, sx, incx, sy, incy)
2    
3     ! From cray.F, version 1.1.1.1, 2004/05/19 12:53:05
4    
5     ! This subroutine should not exist in a Fortran 95 program. If the
6 guez 57 ! actual arguments 2 and 4 are of rank 1 then replace each call to
7     ! this subroutine by the simple statement in this subroutine.
8 guez 30
9     IMPLICIT NONE
10    
11     integer, intent(in):: n, incx, incy
12     real, intent(in):: sx((n-1)*incx+1)
13     real, intent(inout):: sy((n-1)*incy+1)
14    
15     !-------------------------
16    
17     sy(::incy) = sx(::incx)
18    
19     end subroutine scopy

  ViewVC Help
Powered by ViewVC 1.1.21