Context Navigation

no_rsl.f90 @ 238

Last change on this file since 238 was 238, checked in by aquiquet, 6 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

Rev	Line
[238]	1	!> \file no_rsl.f90
	2	!! Module permet de ne pas tenir compte des variations locales du niveau marin
[4]	3	!<
	4
[238]	5	!> \namespace no_rsl
	6	!! Module qui permet de ne pas tenir compte des variations locales du niveau marin
[4]	7	!! \author ...
	8	!! \date ...
	9	!! @note used modules
	10	!! @note - use module3D_phy
	11	!<
	12
[238]	13	module no_rsl
[4]	14
[238]	15	! pas de variations locales du niveau marin
[4]	16
	17	USE module3D_phy
	18	implicit none
	19
	20
[238]	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
[4]	25	!>
[238]	26	subroutine input_rsl
	27	end subroutine input_rsl
[4]	28
[238]	29	!> SUBROUTINE: rsl
[4]	30	!! Routine
	31	!>
[238]	32	subroutine rsl
[4]	33
[237]	34	sealevel_2d(:,:)=sealevel
[4]	35
[238]	36	end subroutine rsl
[4]	37
[238]	38	end module no_rsl

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