New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2812 – NEMO

Changeset 2812


Ignore:
Timestamp:
2011-07-21T11:24:50+02:00 (13 years ago)
Author:
charris
Message:

#662 Before major changes started, add bug-fix to index in ice stress rotation code and turn off setting of ln_rnf since this needs to be true to allow special treatment at river mouths.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r2715 r2812  
    399399      !                                                      ! ------------------------- ! 
    400400      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                                                  ENDIF 
     401!                                                 IF( TRIM( cn_rcv_rnf ) == 'climato' )   THEN   ;   ln_rnf = .TRUE. 
     402!                                                 ELSE                                           ;   ln_rnf = .FALSE. 
     403!                                                 ENDIF 
    404404      srcv(jpr_cal   )%clname = 'OCalving'   ;   IF( TRIM( cn_rcv_cal ) == 'coupled' )   srcv(jpr_cal)%laction = .TRUE. 
    405405 
     
    885885                  &          srcv(jpr_itx1)%clgrid, ztx, zty ) 
    886886               frcv(:,:,jpr_itx1) = ztx(:,:)   ! overwrite 1st comp. on the 1st grid 
    887                frcv(:,:,jpr_itx1) = zty(:,:)   ! overwrite 2nd comp. on the 1st grid 
     887               frcv(:,:,jpr_ity1) = zty(:,:)   ! overwrite 2nd comp. on the 1st grid 
    888888               ! 
    889889               IF( srcv(jpr_itx2)%laction ) THEN 
Note: See TracChangeset for help on using the changeset viewer.