- Timestamp:
- 2013-10-11T15:47:34+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC/trcbc.F90
r4058 r4059 21 21 PRIVATE 22 22 23 PUBLIC trc_bc_init, trc_bc_read 23 PUBLIC trc_bc_init ! called in trcini.F90 24 PUBLIC trc_bc_read ! called in trcstp.F90 or within 24 25 25 26 INTEGER , SAVE, PUBLIC :: nb_trcobc ! number of tracers with open BC … … 61 62 INTEGER :: jl, jn ! dummy loop indices 62 63 INTEGER :: ierr0, ierr1, ierr2, ierr3 ! temporary integers 64 INTEGER :: ios ! Local integer output status for namelist read 63 65 CHARACTER(len=100) :: clndta, clntrc 64 66 ! … … 147 149 END DO 148 150 ! 149 ! Read boundary conditions in namelist_top 150 ! 151 !MAV temporary code for 3.5 151 152 REWIND( numnat ) ! read nattrc 152 153 READ ( numnat, namtrc_bc ) 154 !MAV future code for 3.6 155 ! REWIND( numnat_ref ) ! Namelist namtrc_bc in reference namelist : Passive tracer data structure 156 ! READ ( numnat_ref, namtrc_bc, IOSTAT = ios, ERR = 901) 157 !901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in reference namelist', lwp ) 158 ! 159 ! REWIND( numnat_cfg ) ! Namelist namtrc_bc in configuration namelist : Passive tracer data structure 160 ! READ ( numnat_cfg, namtrc_bc, IOSTAT = ios, ERR = 902 ) 161 !902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in configuration namelist', lwp ) 162 ! WRITE ( numont, namtrc_bc ) 153 163 154 164 ! print some information for each
Note: See TracChangeset
for help on using the changeset viewer.