Changeset 2235
- Timestamp:
- 2010-10-12T20:34:50+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2191_3partymerge2010/NEMO/OPA_SRC/SBC/sbcrnf.F90
r2229 r2235 268 268 ENDIF 269 269 ALLOCATE( sf_rnf(1)%fnow(jpi,jpj,1) ) 270 IF( s f_rnf(1)%ln_tint ) ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,1,2) )270 IF( sn_rnf%ln_tint ) ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,1,2) ) 271 271 ! ! fill sf_rnf with the namelist (sn_rnf) and control print 272 272 CALL fld_fill( sf_rnf, (/ sn_rnf /), cn_dir, 'sbc_rnf_init', 'read runoffs data', 'namsbc_rnf' ) … … 280 280 ENDIF 281 281 ALLOCATE( sf_t_rnf(1)%fnow(jpi,jpj,1) ) 282 IF( s f_t_rnf(1)%ln_tint ) ALLOCATE( sf_t_rnf(1)%fdta(jpi,jpj,1,2) )282 IF( sn_t_rnf%ln_tint ) ALLOCATE( sf_t_rnf(1)%fdta(jpi,jpj,1,2) ) 283 283 CALL fld_fill (sf_t_rnf, (/ sn_t_rnf /), cn_dir, 'sbc_rnf_init', 'read runoff temperature data', 'namsbc_rnf' ) 284 284 ENDIF … … 292 292 ENDIF 293 293 ALLOCATE( sf_s_rnf(1)%fnow(jpi,jpj,1) ) 294 IF( s f_s_rnf(1)%ln_tint ) ALLOCATE( sf_s_rnf(1)%fdta(jpi,jpj,1,2) )294 IF( sn_s_rnf%ln_tint ) ALLOCATE( sf_s_rnf(1)%fdta(jpi,jpj,1,2) ) 295 295 CALL fld_fill (sf_s_rnf, (/ sn_s_rnf /), cn_dir, 'sbc_rnf_init', 'read runoff salinity data', 'namsbc_rnf' ) 296 296 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.