Changeset 1303


Ignore:
Timestamp:
2009-02-10T10:17:34+01:00 (12 years ago)
Author:
ctlod
Message:

update emp(:,:) field with runoffs every nn_fsbc only and not at each time step, see ticket: #326

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r1275 r1303  
    100100         ! C a u t i o n : runoff is negative and in kg/m2/s  
    101101 
    102          emp (:,:) = emp (:,:) - ABS( sf_rnf(1)%fnow(:,:) ) 
    103          emps(:,:) = emps(:,:) - ABS( sf_rnf(1)%fnow(:,:) ) 
     102         IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN 
     103            emp (:,:) = emp (:,:) - ABS( sf_rnf(1)%fnow(:,:) ) 
     104            emps(:,:) = emps(:,:) - ABS( sf_rnf(1)%fnow(:,:) ) 
     105         ENDIF 
    104106         ! 
    105107      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.