source: trunk/WRF.COMMON/WRFV2/share/wrf_inputout.F @ 3553

Last change on this file since 3553 was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien

File size: 1.9 KB
Line 
1  SUBROUTINE wrf_inputout ( fid , grid , config_flags, switch , &
2                            dryrun, ierr )
3    USE module_io
4    USE module_wrf_error
5    USE module_io_wrf
6    USE module_domain
7    USE module_state_description
8    USE module_configure
9    USE module_utility
10    IMPLICIT NONE
11#include <wrf_io_flags.h>
12#include <wrf_status_codes.h>
13    TYPE(domain) :: grid
14    TYPE(grid_config_rec_type),  INTENT(INOUT)    :: config_flags
15    INTEGER, INTENT(IN) :: fid, switch
16    INTEGER, INTENT(INOUT) :: ierr
17    LOGICAL, INTENT(IN) :: dryrun
18
19    ! Local data
20    INTEGER ids , ide , jds , jde , kds , kde , &
21            ims , ime , jms , jme , kms , kme , &
22            ips , ipe , jps , jpe , kps , kpe
23
24    INTEGER       itrace
25    INTEGER , DIMENSION(3) :: domain_start , domain_end
26    INTEGER , DIMENSION(3) :: memory_start , memory_end
27    INTEGER , DIMENSION(3) :: patch_start , patch_end
28    INTEGER i,j
29    INTEGER julyr, julday, idt, iswater , map_proj
30    REAL    gmt, cen_lat, cen_lon, bdyfrq , truelat1 , truelat2
31    INTEGER dyn_opt, diff_opt, km_opt, damp_opt,  &
32            mp_physics, ra_lw_physics, ra_sw_physics, sf_sfclay_physics, &
33            sf_surface_physics, bl_pbl_physics, cu_physics
34    REAL    khdif, kvdif
35    INTEGER rc
36
37    CHARACTER*256 message
38    CHARACTER*80  char_junk
39    INTEGER    ibuf(1)
40    REAL       rbuf(1)
41    CHARACTER*40            :: next_datestr
42
43    CALL get_ijk_from_grid (  grid ,                        &
44                              ids, ide, jds, jde, kds, kde,    &
45                              ims, ime, jms, jme, kms, kme,    &
46                              ips, ipe, jps, jpe, kps, kpe    )
47
48    call nl_get_dyn_opt ( 1 , dyn_opt                       )
49
50    ! note that the string current_date comes in through use association
51    ! of module_io_wrf
52! generated by the registry
53#include <wrf_inputout.inc>
54
55    RETURN
56    END
Note: See TracBrowser for help on using the repository browser.