Changeset 5948 for branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2015-11-30T11:47:24+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5947 r5948 931 931 ! => need to be done only when otx1 was changed 932 932 IF( llnewtx ) THEN 933 !CDIR NOVERRCHK934 933 DO jj = 2, jpjm1 935 !CDIR NOVERRCHK936 934 DO ji = fs_2, fs_jpim1 ! vect. opt. 937 935 zzx = frcv(jpr_otx1)%z3(ji-1,jj ,1) + frcv(jpr_otx1)%z3(ji,jj,1) … … 961 959 IF( llnewtau ) THEN 962 960 zcoef = 1. / ( zrhoa * zcdrag ) 963 !CDIR NOVERRCHK964 961 DO jj = 1, jpj 965 !CDIR NOVERRCHK966 962 DO ji = 1, jpi 967 963 frcv(jpr_w10m)%z3(ji,jj,1) = SQRT( frcv(jpr_taum)%z3(ji,jj,1) * zcoef )
Note: See TracChangeset
for help on using the changeset viewer.