- 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/SBC/sbccpl.F90
r3680 r4147 221 221 !! 222 222 INTEGER :: jn ! dummy loop index 223 INTEGER :: ios ! Local integer output status for namelist read 223 224 REAL(wp), POINTER, DIMENSION(:,:) :: zacs, zaos 224 225 !! … … 236 237 ! ================================ ! 237 238 238 ! default definitions 239 ! ! description ! multiple ! vector ! vector ! vector ! 240 ! ! ! categories ! reference ! orientation ! grids ! 241 ! send 242 sn_snd_temp = FLD_C( 'weighted oce and ice', 'no' , '' , '' , '' ) 243 sn_snd_alb = FLD_C( 'weighted ice' , 'no' , '' , '' , '' ) 244 sn_snd_thick = FLD_C( 'none' , 'no' , '' , '' , '' ) 245 sn_snd_crt = FLD_C( 'none' , 'no' , 'spherical' , 'eastward-northward' , 'T' ) 246 sn_snd_co2 = FLD_C( 'none' , 'no' , '' , '' , '' ) 247 ! receive 248 sn_rcv_w10m = FLD_C( 'none' , 'no' , '' , '' , '' ) 249 sn_rcv_taumod = FLD_C( 'coupled' , 'no' , '' , '' , '' ) 250 sn_rcv_tau = FLD_C( 'oce only' , 'no' , 'cartesian' , 'eastward-northward', 'U,V' ) 251 sn_rcv_dqnsdt = FLD_C( 'coupled' , 'no' , '' , '' , '' ) 252 sn_rcv_qsr = FLD_C( 'oce and ice' , 'no' , '' , '' , '' ) 253 sn_rcv_qns = FLD_C( 'oce and ice' , 'no' , '' , '' , '' ) 254 sn_rcv_emp = FLD_C( 'conservative' , 'no' , '' , '' , '' ) 255 sn_rcv_rnf = FLD_C( 'coupled' , 'no' , '' , '' , '' ) 256 sn_rcv_cal = FLD_C( 'coupled' , 'no' , '' , '' , '' ) 257 sn_rcv_iceflx = FLD_C( 'none' , 'no' , '' , '' , '' ) 258 sn_rcv_co2 = FLD_C( 'none' , 'no' , '' , '' , '' ) 259 260 REWIND( numnam ) ! ... read namlist namsbc_cpl 261 READ ( numnam, namsbc_cpl ) 239 REWIND( numnam_ref ) ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling 240 READ ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901) 241 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwp ) 242 243 REWIND( numnam_cfg ) ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling 244 READ ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 245 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 246 WRITE ( numond, namsbc_cpl ) 262 247 263 248 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.