Context Navigation

no_rsl.f90 @ 334

Last change on this file since 334 was 238, checked in by aquiquet, 5 years ago
Lakes have been replaced by a more generic relative sea level information, commit with no consequence on standard applications
File size: 706 bytes

Line
1	!> \file no_rsl.f90
2	!! Module permet de ne pas tenir compte des variations locales du niveau marin
3	!<
4
5	!> \namespace no_rsl
6	!! Module qui permet de ne pas tenir compte des variations locales du niveau marin
7	!! \author ...
8	!! \date ...
9	!! @note used modules
10	!! @note - use module3D_phy
11	!<
12
13	module no_rsl
14
15	! pas de variations locales du niveau marin
16
17	USE module3D_phy
18	implicit none
19
20
21	contains
22	!> SUBROUTINE: input_rsl
23	!! Routine permettant d'introduire des variations locales du niveau marin
24	!! en anomalie par rapport au niveau eustatique
25	!>
26	subroutine input_rsl
27	end subroutine input_rsl
28
29	!> SUBROUTINE: rsl
30	!! Routine
31	!>
32	subroutine rsl
33
34	sealevel_2d(:,:)=sealevel
35
36	end subroutine rsl
37
38	end module no_rsl

Note: See TracBrowser for help on using the repository browser.