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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 15 - (hide 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 guez 3 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 guez 15 ! Cf. version moderne "gr_phy_write_2d", dans le cas où "nfield" vaut 1.
10 guez 3
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