source: LMDZ5/branches/LF-private/libf/phydev/phyetat0.F90 @ 2404

Last change on this file since 2404 was 1686, checked in by Ehouarn Millour, 12 years ago

Some additional stuff for "phydev": add what is required to be potentialy able to load a "startphy.nc" and also add illustrative examples of writting outputs in the physics using IOIPSL.
EM

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.