/[lmdze]/trunk/phylmd/Interface_surf/limit_read_sst.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/limit_read_sst.f

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

trunk/phylmd/Interface_surf/read_sst.f revision 292 by guez, Fri Jul 20 14:30:23 2018 UTC trunk/phylmd/Interface_surf/limit_read_sst.f revision 293 by guez, Wed Jul 25 16:16:53 2018 UTC
# Line 1  Line 1 
1  module read_sst_m  module limit_read_sst_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE read_sst(julien, knindex, tsurf)    SUBROUTINE limit_read_sst(julien, knindex, tsurf)
8    
9      ! From interfoce_lim      ! From interfoce_lim
10    
# Line 34  contains Line 34  contains
34    
35      ! --------------------------------------------------      ! --------------------------------------------------
36    
37      call assert(size(knindex) == size(tsurf), "read_sst knon")      call assert(size(knindex) == size(tsurf), "limit_read_sst knon")
38    
39      ! Tester d'abord si c'est le moment de lire le fichier      ! Tester d'abord si c'est le moment de lire le fichier
40      if (mod(itap - 1, lmt_pas) == 0) then      if (mod(itap - 1, lmt_pas) == 0) then
# Line 48  contains Line 48  contains
48    
49      tsurf = sst_lu(knindex)      tsurf = sst_lu(knindex)
50    
51    END SUBROUTINE read_sst    END SUBROUTINE limit_read_sst
52    
53  end module read_sst_m  end module limit_read_sst_m
Legend:
Removed from v.292  
changed lines
  Added in v.293
  ViewVC Help
Powered by ViewVC 1.1.21