/[lmdze]/trunk/phylmd/phyredem.f
ViewVC logotype

Diff of /trunk/phylmd/phyredem.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 310 by guez, Thu Sep 27 16:29:06 2018 UTC revision 324 by guez, Wed Feb 6 15:58:03 2019 UTC
# Line 19  contains Line 19  contains
19      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
20      USE indicesol, ONLY: is_oce, nbsrf      USE indicesol, ONLY: is_oce, nbsrf
21      USE netcdf95, ONLY: nf95_inq_varid, nf95_put_var, nf95_close      USE netcdf95, ONLY: nf95_inq_varid, nf95_put_var, nf95_close
22      use phyetat0_m, only: zmasq      use phyetat0_m, only: masque
23      use phyredem0_m, only: ncid_restartphy      use phyredem0_m, only: ncid_restartphy
24    
25      REAL, INTENT(IN):: pctsrf(:, :) ! (klon, nbsrf)      REAL, INTENT(IN):: pctsrf(:, :) ! (klon, nbsrf)
# Line 64  contains Line 64  contains
64      PRINT *, 'Call sequence information: phyredem'      PRINT *, 'Call sequence information: phyredem'
65    
66      call nf95_inq_varid(ncid_restartphy, "masque", varid)      call nf95_inq_varid(ncid_restartphy, "masque", varid)
67      call nf95_put_var(ncid_restartphy, varid, zmasq)      call nf95_put_var(ncid_restartphy, varid, masque)
68    
69      call nf95_inq_varid(ncid_restartphy, "pctsrf", varid)      call nf95_inq_varid(ncid_restartphy, "pctsrf", varid)
70      call nf95_put_var(ncid_restartphy, varid, pctsrf)      call nf95_put_var(ncid_restartphy, varid, pctsrf)
Legend:
Removed from v.310  
changed lines
  Added in v.324
  ViewVC Help
Powered by ViewVC 1.1.21