source: LMDZ5/branches/LMDZ5_SPLA/libf/phydev/phyetat0.F90 @ 2668

Last change on this file since 2668 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
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.