- Timestamp:
- 2013-11-04T12:51:55+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/module_example
r2737 r4147 13 13 !! 'key_example' : brief description of the key option 14 14 !!---------------------------------------------------------------------- 15 !! exa_mpl : list eof module subroutine (caution, never use the15 !! exa_mpl : list of module subroutine (caution, never use the 16 16 !! exa_mpl_init : name of the module for a routine) 17 17 !! exa_mpl_stp : Please try to use 3 letter block for routine names … … 157 157 !!---------------------------------------------------------------------- 158 158 INTEGER :: ji, jj, jk, jit ! dummy loop indices 159 INTEGER :: ios ! Local integer output status for namelist read 159 160 !! 160 161 NAMELIST/namexa/ exa_v1, exa_v2, nexa_0, sn_ex 161 162 !!---------------------------------------------------------------------- 162 163 ! 163 sn_ex%clname ='toto' ! set default namelist values 164 sn_ex%nfreqh = 2 165 ! 166 REWIND( numnam ) ! Read Namelist namexa : example parameters 167 READ ( numnam, namexa ) 164 REWIND( numnam_ref ) ! Namelist namexa in reference namelist : Example 165 READ ( numnam_ref, namexa, IOSTAT = ios, ERR = 901) 166 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namexa in reference namelist', lwp ) 167 168 REWIND( numnam_cfg ) ! Namelist namexa in configuration namelist : Example 169 READ ( numnam_cfg, namexa, IOSTAT = ios, ERR = 902 ) 170 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namexa in configuration namelist', lwp ) 171 ! Output namelist for control 172 WRITE ( numond, namexa ) 168 173 ! 169 174 IF(lwp) THEN ! Control print … … 173 178 WRITE(numout,*) ' Namelist namexa : set example parameters' 174 179 WRITE(numout,*) ' brief desciption exa_v1 = ', exa_v1 175 WRITE(numout,*) ' brief desciption exa_v 1 = ', exa_v1180 WRITE(numout,*) ' brief desciption exa_v2 = ', exa_v2 176 181 WRITE(numout,*) ' brief desciption nexa_0 = ', nexa_0 177 182 WRITE(numout,*) ' brief desciption sn_ex%clname = ', sn_ex%clname
Note: See TracChangeset
for help on using the changeset viewer.