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 |
|
|
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 |
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 |