Changes between Initial Version and Version 1 of Ticket #706


Ignore:
Timestamp:
08/08/16 20:13:45 (8 years ago)
Author:
arango
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #706

    • Property Resolution → Fixed
    • Property Status new → closed

  • Ticket #706 – Description

    initial v1  
    1 The definition of the free-surface had an additional variable argument to include '''water_points''' attribute in the data assimilation initial/restart file ('''DAINAME'''):
     1The definition of the free-surface had an additional variable argument to include the '''water_points''' attribute in the data assimilation initial/restart file ('''DAINAME'''):
    22
    33 {{{
    4 
    54!
    6 !  Define free-surface.
     5! Define free-surface.
    76!
    8         Vinfo( 1)=Vname(1,idFsur)
    9         Vinfo( 2)=Vname(2,idFsur)
    10         Vinfo( 3)=Vname(3,idFsur)
    11         Vinfo(14)=Vname(4,idFsur)
    12         Vinfo(16)=Vname(1,idtime)
    13         Vinfo(20)='mask_rho'
    14         Vinfo(22)='coordinates'
    15         Aval(5)=REAL(Iinfo(1,idFsur,ng),r8)
    16         status=def_var(ng, iNLM, DAI(ng)%ncid, DAI(ng)%Vid(idFsur),    &
     7  Vinfo( 1)=Vname(1,idFsur)
     8  Vinfo( 2)=Vname(2,idFsur)
     9  Vinfo( 3)=Vname(3,idFsur)
     10  Vinfo(14)=Vname(4,idFsur)
     11  Vinfo(16)=Vname(1,idtime)
     12  Vinfo(20)='mask_rho'
     13  Vinfo(22)='coordinates'
     14  Aval(5)=REAL(Iinfo(1,idFsur,ng),r8)
     15  status=def_var(ng, iNLM, DAI(ng)%ncid, DAI(ng)%Vid(idFsur), &
    1716# ifdef WET_DRY
    18      &                 NF_FRST, nvd3, t2dgrd, Aval, Vinfo, ncname,      &
    19      &                SetFillVal = .FALSE.)
     17  & NF_FRST, nvd3, t2dgrd, Aval, Vinfo, ncname, &
     18  & SetFillVal = .FALSE.)
    2019# else
    21      &                NF_FRST, nvd3, t2dgrd, Aval, Vinfo, ncname)
     20  & NF_FRST, nvd3, t2dgrd, Aval, Vinfo, ncname)
    2221
    2322# endif
    24         IF (exit_flag.ne.NoError) RETURN
     23  IF (exit_flag.ne.NoError) RETURN
    2524}}}
    2625The '''Vinfo(20)='mask_rho'''' attibute is wrong for this file.
    2726
    28 Also, all the I/O NetCDF ID ('''ncid''') is initialized to closed state in '''mod_iounits.F''':
     27Also, the NetCDF ID ('''ncid''') for all I/O structures is initialized to closed state in '''mod_iounits.F''':
    2928
    3029 {{{
    3130!
    3231!-----------------------------------------------------------------------
    33 !  Initialize I/O NetCDF files ID to close state.
     32! Initialize I/O NetCDF files ID to close state.
    3433!-----------------------------------------------------------------------
    3534!
    36       DO ng=1,Ngrids
    37         ADM(ng)%ncid=-1
    38         ADS(ng)%ncid=-1
    39         AVG(ng)%ncid=-1
    40         BLK(ng)%ncid=-1
    41         BRY(ng)%ncid=-1
    42         CLM(ng)%ncid=-1
    43         DAI(ng)%ncid=-1
    44         DAV(ng)%ncid=-1
    45         DIA(ng)%ncid=-1
    46         ERR(ng)%ncid=-1
    47         FLT(ng)%ncid=-1
    48         FWD(ng)%ncid=-1
    49         GRD(ng)%ncid=-1
    50         GST(ng)%ncid=-1
    51         HIS(ng)%ncid=-1
    52         HSS(ng)%ncid=-1
    53         IAD(ng)%ncid=-1
    54         INI(ng)%ncid=-1
    55         IRP(ng)%ncid=-1
    56         ITL(ng)%ncid=-1
    57         LCZ(ng)%ncid=-1
    58         LZE(ng)%ncid=-1
    59         NUD(ng)%ncid=-1
    60         OBS(ng)%ncid=-1
    61         QCK(ng)%ncid=-1
    62         RST(ng)%ncid=-1
    63         SSF(ng)%ncid=-1
    64         STA(ng)%ncid=-1
    65         TLF(ng)%ncid=-1
    66         TLM(ng)%ncid=-1
     35  DO ng=1,Ngrids
     36  ADM(ng)%ncid=-1
     37  ADS(ng)%ncid=-1
     38  AVG(ng)%ncid=-1
     39  BLK(ng)%ncid=-1
     40  BRY(ng)%ncid=-1
     41  CLM(ng)%ncid=-1
     42  DAI(ng)%ncid=-1
     43  DAV(ng)%ncid=-1
     44  DIA(ng)%ncid=-1
     45  ERR(ng)%ncid=-1
     46  FLT(ng)%ncid=-1
     47  FWD(ng)%ncid=-1
     48  GRD(ng)%ncid=-1
     49  GST(ng)%ncid=-1
     50  HIS(ng)%ncid=-1
     51  HSS(ng)%ncid=-1
     52  IAD(ng)%ncid=-1
     53  INI(ng)%ncid=-1
     54  IRP(ng)%ncid=-1
     55  ITL(ng)%ncid=-1
     56  LCZ(ng)%ncid=-1
     57  LZE(ng)%ncid=-1
     58  NUD(ng)%ncid=-1
     59  OBS(ng)%ncid=-1
     60  QCK(ng)%ncid=-1
     61  RST(ng)%ncid=-1
     62  SSF(ng)%ncid=-1
     63  STA(ng)%ncid=-1
     64  TLF(ng)%ncid=-1
     65  TLM(ng)%ncid=-1
    6766
    68         TIDE(ng)%ncid=-1
     67  TIDE(ng)%ncid=-1
    6968
    70         NRM(1:4,ng)%ncid=-1
    71         STD(1:4,ng)%ncid=-1
    72       END DO
     69  NRM(1:4,ng)%ncid=-1
     70  STD(1:4,ng)%ncid=-1
     71  END DO
    7372}}}
    7473