Changeset 3106 for branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011
- Timestamp:
- 2011-11-15T12:40:00+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r3104 r3106 641 641 SELECT CASE( sec%direction(jseg) ) 642 642 CASE(0,1) 643 ztn = interp(k%I,k%J,jk,'V',t n)644 zsn = interp(k%I,k%J,jk,'V', sn)643 ztn = interp(k%I,k%J,jk,'V',tsn(:,:,:,jp_tem) ) 644 zsn = interp(k%I,k%J,jk,'V',tsn(:,:,:,jp_sal) ) 645 645 zrhop = interp(k%I,k%J,jk,'V',rhop) 646 646 zrhoi = interp(k%I,k%J,jk,'V',rhd*rau0+rau0) 647 647 zsshn = 0.5*( sshn(k%I,k%J) + sshn(k%I,k%J+1) ) * vmask(k%I,k%J,1) 648 648 CASE(2,3) 649 ztn = interp(k%I,k%J,jk,'U',t n)650 zsn = interp(k%I,k%J,jk,'U', sn)649 ztn = interp(k%I,k%J,jk,'U',tsn(:,:,:,jp_tem) ) 650 zsn = interp(k%I,k%J,jk,'U',tsn(:,:,:,jp_sal) ) 651 651 zrhop = interp(k%I,k%J,jk,'U',rhop) 652 652 zrhoi = interp(k%I,k%J,jk,'U',rhd*rau0+rau0)
Note: See TracChangeset
for help on using the changeset viewer.