source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/phyetat0.F90 @ 3024

Last change on this file since 3024 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 649 bytes
Line 
1!
2! $Id $
3!
4subroutine phyetat0(fichnom)
5! Load initial state for the physics
6! and do some resulting initializations
7
8use iostart, only : open_startphy,get_field,close_startphy
9use iophy, only : init_iophy_new
10use phys_state_var_mod, only : rlat,rlon
11
12implicit none
13
14character(len=*),intent(in) :: fichnom ! input file name
15
16! open physics initial state file:
17call open_startphy(fichnom)
18
19! read latitudes
20call get_field("latitude",rlat)
21
22! read longitudes
23call get_field("longitude",rlon)
24
25! read in other variables here ...
26
27! close file
28call close_startphy
29
30! do some more initializations
31call init_iophy_new(rlat,rlon)
32
33end subroutine phyetat0
Note: See TracBrowser for help on using the repository browser.