/[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 309 by guez, Thu Sep 6 15:51:09 2018 UTC revision 310 by guez, Thu Sep 27 16:29:06 2018 UTC
# Line 17  contains Line 17  contains
17      ! pour la physique      ! pour la physique
18    
19      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
20      USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, 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: zmasq
23      use phyredem0_m, only: ncid_restartphy      use phyredem0_m, only: ncid_restartphy
# Line 66  contains Line 66  contains
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, zmasq)
68    
69      call nf95_inq_varid(ncid_restartphy, "FTER", varid)      call nf95_inq_varid(ncid_restartphy, "pctsrf", varid)
70      call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_ter))      call nf95_put_var(ncid_restartphy, varid, pctsrf)
   
     call nf95_inq_varid(ncid_restartphy, "FLIC", varid)  
     call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_lic))  
   
     call nf95_inq_varid(ncid_restartphy, "FOCE", varid)  
     call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_oce))  
   
     call nf95_inq_varid(ncid_restartphy, "FSIC", varid)  
     call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_sic))  
71    
72      call nf95_inq_varid(ncid_restartphy, "TS", varid)      call nf95_inq_varid(ncid_restartphy, "TS", varid)
73      call nf95_put_var(ncid_restartphy, varid, ftsol)      call nf95_put_var(ncid_restartphy, varid, ftsol)
Legend:
Removed from v.309  
changed lines
  Added in v.310
  ViewVC Help
Powered by ViewVC 1.1.21