/[lmdze]/trunk/phylmd/histwrite_phy.f90
ViewVC logotype

Annotation of /trunk/phylmd/histwrite_phy.f90

Parent Directory Parent Directory | Revision Log Revision Log

Revision 212 - (hide annotations)
Thu Jan 12 12:31:31 2017 UTC (7 years, 4 months ago) by guez
Original Path: trunk/Sources/phylmd/histwrite_phy.f
File size: 1054 byte(s) 
Moved variables from module com_io_dyn to module inithist_m, where
they are defined.

Split grid_atob.f into grille_m.f and dist_sphe.f. Extracted ASCCI art
to documentation. In grille_m, use automatic arrays instead of maximum
size. In grille_m, instead of printing data for every problematic
point, print a single diagnostic message.

Removed variables top_height, overlap, lev_histhf, lev_histday,
lev_histmth, type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins,
latmin_ins, latmax_ins of module clesphys, not used.

Removed variable itap of module histwrite_phy_m, not used. There is a
variable itap in module time_phylmdz.

Added output of tro3.

In physiq, no need to compute wo at every time-step, since we only use
it in radlwsw.
1 guez 191 module histwrite_phy_m
2    
3     use clesphys, only: ok_instan
4     use gr_phy_write_m, only: gr_phy_write
5     use histwrite_m, only: histwrite
6     use ini_histins_m, only: nid_ins
7     use time_phylmdz, only: itau_w
8    
9     implicit none
10    
11     INTERFACE histwrite_phy
12     MODULE PROCEDURE histwrite2d_phy, histwrite3d_phy
13     end INTERFACE histwrite_phy
14    
15     private
16 guez 212 public histwrite_phy
17 guez 191
18     contains
19    
20     subroutine histwrite2d_phy(var, field)
21    
22     character(len=*), intent(in):: var
23     real, intent(in):: field(:)
24    
25     !-----------------------------------------------------------
26    
27     IF (ok_instan) CALL histwrite(nid_ins, var, itau_w, gr_phy_write(field))
28    
29     end subroutine histwrite2d_phy
30    
31     !*************************************************************
32    
33     subroutine histwrite3d_phy(var, field)
34    
35     character(len=*), intent(in):: var
36     real, intent(in):: field(:, :)
37    
38     !-----------------------------------------------------------
39    
40     IF (ok_instan) CALL histwrite(nid_ins, var, itau_w, gr_phy_write(field))
41    
42     end subroutine histwrite3d_phy
43    
44     end module histwrite_phy_m
  ViewVC Help
Powered by ViewVC 1.1.21