/[lmdze]/trunk/Sources/phylmd/Interface_surf/read_sst.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Interface_surf/read_sst.f

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

revision 221 by guez, Thu Apr 20 14:44:47 2017 UTC revision 222 by guez, Tue Apr 25 15:31:48 2017 UTC
# Line 4  module read_sst_m Line 4  module read_sst_m
4    
5  contains  contains
6    
7    SUBROUTINE read_sst(julien, knindex, lmt_sst)    SUBROUTINE read_sst(julien, knindex, tsurf)
8    
9      ! From interfoce_lim      ! From interfoce_lim
10    
# Line 20  contains Line 20  contains
20      integer, intent(in):: knindex(:) ! (knon)      integer, intent(in):: knindex(:) ! (knon)
21      ! index des points de la surface a traiter      ! index des points de la surface a traiter
22    
23      real, intent(out):: lmt_sst(:) ! (knon)      real, intent(out):: tsurf(:) ! (knon)
24      ! SST lues dans le fichier de conditions aux limites      ! SST lues dans le fichier de conditions aux limites
25    
26      ! Local:      ! Local:
# Line 32  contains Line 32  contains
32    
33      ! --------------------------------------------------      ! --------------------------------------------------
34    
35      call assert(size(knindex) == size(lmt_sst), "read_sst knon")      call assert(size(knindex) == size(tsurf), "read_sst knon")
36    
37      ! Tester d'abord si c'est le moment de lire le fichier      ! Tester d'abord si c'est le moment de lire le fichier
38      if (mod(itap - 1, lmt_pas) == 0) then      if (mod(itap - 1, lmt_pas) == 0) then
# Line 44  contains Line 44  contains
44         call NF95_CLOSE(ncid)         call NF95_CLOSE(ncid)
45      endif      endif
46    
47      lmt_sst = sst_lu(knindex)      tsurf = sst_lu(knindex)
48    
49    END SUBROUTINE read_sst    END SUBROUTINE read_sst
50    
Legend:
Removed from v.221  
changed lines
  Added in v.222
  ViewVC Help
Powered by ViewVC 1.1.21