Changeset 7158 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2016-10-29T01:21:05+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6970 r7158 844 844 LOGICAL :: llnewtx, llnewtau ! update wind stress components and module?? 845 845 INTEGER :: ji, jj, jn ! dummy loop indices 846 INTEGER :: isec ! number of seconds since nit000 (assuming rdt tradid not change since nit000)846 INTEGER :: isec ! number of seconds since nit000 (assuming rdt did not change since nit000) 847 847 REAL(wp) :: zcumulneg, zcumulpos ! temporary scalars 848 848 REAL(wp) :: zcoef ! temporary scalar … … 862 862 ! ! Receive all the atmos. fields (including ice information) 863 863 ! ! ======================================================= ! 864 isec = ( kt - nit000 ) * NINT( rdt tra(1) )! date of exchanges864 isec = ( kt - nit000 ) * NINT( rdt ) ! date of exchanges 865 865 DO jn = 1, jprcv ! received fields sent by the atmosphere 866 866 IF( srcv(jn)%laction ) CALL cpl_rcv( jn, isec, frcv(jn)%z3, xcplmask(:,:,1:nn_cplmodel), nrcvinfo(jn) ) … … 1770 1770 CALL wrk_alloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 1771 1771 1772 isec = ( kt - nit000 ) * NINT(rdt tra(1)) ! date of exchanges1772 isec = ( kt - nit000 ) * NINT(rdt) ! date of exchanges 1773 1773 1774 1774 zfr_l(:,:) = 1.- fr_i(:,:)
Note: See TracChangeset
for help on using the changeset viewer.