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