source: LMDZ5/branches/LMDZ5-DOFOCO/libf/phydev/phyredem.F @ 5427

Last change on this file since 5427 was 1671, checked in by Ehouarn Millour, 12 years ago
  • fixed "aquaplanet case" so that initializations (creation of files startphy.nc and limit.nc) now also works in parallel (mpi,omp,mixed).
  • call to "iniaqua" is now done from within "iniphysiq" ; also added some tests to check consistency between essential variables shared by dynamics and physics (planetary radius, gravity, Cp, ...)
  • simillarily adapted "phydev" routines, and added necessary routines to also be able to generate startphy.nc/restartphy.nc files there. Also removed common file "comcstphy.h" and replaced it with a module "comcstphy.F90"

EM

File size: 793 bytes
Line 
1!
2! $Id: $
3!
4      SUBROUTINE phyredem (fichnom)
5
6      use iostart, only : open_restartphy,close_restartphy,
7     &                    put_var,put_field
8      use phys_state_var_mod, only : rlon,rlat
9
10      implicit none
11
12      character(len=*),intent(in) :: fichnom
13
14      integer,parameter :: tab_cntrl_len=100
15      real :: tab_cntrl(tab_cntrl_len)
16
17! open file
18
19      CALL open_restartphy(fichnom)
20
21! tab_cntrl() contains run parameters
22
23      tab_cntrl(:)=0.0
24 
25
26      CALL put_var("controle","Parametres de controle",tab_cntrl)
27
28! coordinates
29
30      CALL put_field("longitude",
31     .               "Longitudes de la grille physique",rlon)
32     
33      CALL put_field("latitude","Latitudes de la grille physique",rlat)
34
35! close file
36
37      CALL close_restartphy
38!$OMP BARRIER
39
40      END
Note: See TracBrowser for help on using the repository browser.