Changeset 2812 for branches/2011/dev_r2802_UKMO8_sbccpl
- Timestamp:
- 2011-07-21T11:24:50+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r2715 r2812 399 399 ! ! ------------------------- ! 400 400 srcv(jpr_rnf )%clname = 'O_Runoff' ; IF( TRIM( cn_rcv_rnf ) == 'coupled' ) srcv(jpr_rnf)%laction = .TRUE. 401 IF( TRIM( cn_rcv_rnf ) == 'climato' ) THEN ; ln_rnf = .TRUE.402 ELSE ; ln_rnf = .FALSE.403 ENDIF401 ! IF( TRIM( cn_rcv_rnf ) == 'climato' ) THEN ; ln_rnf = .TRUE. 402 ! ELSE ; ln_rnf = .FALSE. 403 ! ENDIF 404 404 srcv(jpr_cal )%clname = 'OCalving' ; IF( TRIM( cn_rcv_cal ) == 'coupled' ) srcv(jpr_cal)%laction = .TRUE. 405 405 … … 885 885 & srcv(jpr_itx1)%clgrid, ztx, zty ) 886 886 frcv(:,:,jpr_itx1) = ztx(:,:) ! overwrite 1st comp. on the 1st grid 887 frcv(:,:,jpr_it x1) = zty(:,:) ! overwrite 2nd comp. on the 1st grid887 frcv(:,:,jpr_ity1) = zty(:,:) ! overwrite 2nd comp. on the 1st grid 888 888 ! 889 889 IF( srcv(jpr_itx2)%laction ) THEN
Note: See TracChangeset
for help on using the changeset viewer.