Parent Directory
| 
Revision Log
Split "stringop.f90" into single-procedure files. Gathered files in directory "IOIPSL/Stringop". Split "flincom.f90" into "flincom.f90" and "flinget.f90". Removed unused procedures from module "flincom". Removed unused argument "filename" of procedure "flinopen_nozoom". Removed unused files. Split "grid_change.f90" into "grid_change.f90" and "gr_phy_write_3d.f90". Removed unused procedures from modules "calendar", "ioipslmpp", "grid_atob", "gath_cpl" and "getincom". Removed unused procedures in files "ppm3d.f" and "thermcell.f". Split "mathelp.f90" into "mathelp.f90" and "mathop.f90". Removed unused variable "dpres" of module "comvert". Use argument "itau" instead of local variables "iadvtr" and "first" to control algorithm in procedure "fluxstokenc". Removed unused arguments of procedure "integrd". Removed useless computations at the end of procedure "leapfrog". Merged common block "matrfil" into module "parafilt".
| 1 | guez | 32 | module gr_phy_write_3d_m |
| 2 | |||
| 3 | implicit none | ||
| 4 | |||
| 5 | contains | ||
| 6 | |||
| 7 | function gr_phy_write_3d(pfi) | ||
| 8 | |||
| 9 | ! Transforme une variable de la grille physique à la grille d'écriture. | ||
| 10 | ! The grid for output files does not duplicate the first longitude | ||
| 11 | ! in the last longitude. | ||
| 12 | ! Input array has rank 2. Horizontal index is in the first dimension. | ||
| 13 | |||
| 14 | use dimens_m, only: iim, jjm | ||
| 15 | use dimphy, only: klon | ||
| 16 | use numer_rec, only: assert | ||
| 17 | use grid_change, only: gr_phy_write_2d | ||
| 18 | |||
| 19 | REAL, intent(in):: pfi(:, :) | ||
| 20 | real gr_phy_write_3d(iim, jjm + 1, size(pfi, 2)) | ||
| 21 | |||
| 22 | ! Variable local to the procedure: | ||
| 23 | integer l | ||
| 24 | |||
| 25 | !----------------------------------------------------------------------- | ||
| 26 | |||
| 27 | call assert(size(pfi, 1) == klon, "gr_phy_write_3d") | ||
| 28 | |||
| 29 | do l = 1, size(pfi, 2) | ||
| 30 | gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l)) | ||
| 31 | end do | ||
| 32 | |||
| 33 | END function gr_phy_write_3d | ||
| 34 | |||
| 35 | end module gr_phy_write_3d_m |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |