/[lmdze]/trunk/Sources/phylmd/gr_phy_write.f
ViewVC logotype

Contents of /trunk/Sources/phylmd/gr_phy_write.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 15 - (show annotations)
Fri Aug 1 15:24:12 2008 UTC (15 years, 8 months ago) by guez
Original Path: trunk/libf/phylmd/gr_fi_ecrit.f90
File size: 825 byte(s)
-- Minor modification of input/output:

Added variable "Sigma_O3_Royer" to "histday.nc". "ecrit_day" is not
modified in "physiq". Removed variables "pyu1", "pyv1", "ftsol1",
"ftsol2", "ftsol3", "ftsol4", "psrf1", "psrf2", "psrf3", "psrf4"
"mfu", "mfd", "en_u", "en_d", "de_d", "de_u", "coefh" from
"histrac.nc".

Variable "raz_date" of module "conf_gcm_m" has logical type instead of
integer type.

-- Should not change any result at run time:

Modified calls to "IOIPSL_Lionel" procedures because the interfaces of
these procedures have been simplified.

Changed name of variable in module "start_init_orog_m": "masque" to
"mask".

Created a module containing procedure "phyredem".

Removed arguments "punjours", "pdayref" and "ptimestep" of procedure
"iniphysiq".

Renamed procedure "gr_phy_write" to "gr_phy_write_2d". Created
procedure "gr_phy_write_3d".

Removed procedures "ini_undefstd", "moy_undefSTD", "calcul_STDlev",
"calcul_divers".

1 SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)
2
3 ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28
4 ! This procedure is clean: no C preprocessor directive, no include line.
5
6 IMPLICIT none
7
8 ! Transforme une variable de la grille physique à la grille d'écriture.
9 ! Cf. version moderne "gr_phy_write_2d", dans le cas où "nfield" vaut 1.
10
11 INTEGER, intent(in):: nfield, nlon, iim, jjmp1
12 REAL, intent(in):: fi(nlon, nfield)
13 real ecrit(iim*jjmp1, nfield)
14
15 ! Variables local to the procedure:
16
17 integer jjm
18 INTEGER i, n, ig
19
20 !---------------
21
22 jjm = jjmp1 - 1
23 DO n = 1, nfield
24 DO i=1, iim
25 ecrit(i, n) = fi(1, n)
26 ecrit(i+jjm*iim, n) = fi(nlon, n)
27 ENDDO
28 DO ig = 1, nlon - 2
29 ecrit(iim+ig, n) = fi(1+ig, n)
30 ENDDO
31 ENDDO
32
33 END SUBROUTINE gr_fi_ecrit

  ViewVC Help
Powered by ViewVC 1.1.21