Changeset 7802


Ignore:
Timestamp:
2017-03-16T11:18:36+01:00 (4 years ago)
Author:
frrh
Message:

Apply identical fixes for rnf field as per Tim's branches/UKMO/dev_r5518_GO6_package_fix_rnf
revisions 7781 and 7782.

Location:
branches/UKMO/dev_r5518_rnf_fix/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_rnf_fix/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r7800 r7802  
    339339         emp_b(:,:) = emp(:,:) 
    340340         sfx_b(:,:) = sfx(:,:) 
     341         IF ( ln_rnf ) THEN  ! Need to be here so that order is correct in coupled mode 
     342            rnf_b    (:,:  ) = rnf    (:,:  ) 
     343            rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:)  
     344         ENDIF 
     345         ! 
    341346      ENDIF 
    342347      !                                            ! ---------------------------------------- ! 
  • branches/UKMO/dev_r5518_rnf_fix/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r7800 r7802  
    110110      CALL wrk_alloc( jpi,jpj, ztfrz) 
    111111 
    112       !                                            ! ---------------------------------------- ! 
    113       IF( kt /= nit000 ) THEN                      !          Swap of forcing fields          ! 
    114          !                                         ! ---------------------------------------- ! 
    115          rnf_b    (:,:  ) = rnf    (:,:  )               ! Swap the ocean forcing fields except at nit000 
    116          rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:)               ! where before fields are set at the end of the routine 
    117          ! 
    118       ENDIF 
    119  
    120112      !                                            !-------------------! 
    121113      !                                            !   Update runoff   ! 
Note: See TracChangeset for help on using the changeset viewer.