Changeset 3203 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2011-12-07T16:10:49+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r3186 r3203 860 860 sec%transport(2,jclass)=sec%transport(2,jclass)+zsum(2,jclass)*1.E-6 861 861 IF( sec%llstrpond ) THEN 862 IF( zsum(1,jclass) .NE. 0 ) THEN 863 sec%transport(3,jclass)=sec%transport(3,jclass)+zsum(3,jclass)/zsum(1,jclass) 864 sec%transport(5,jclass)=sec%transport(5,jclass)+zsum(5,jclass)/zsum(1,jclass) 865 sec%transport(7,jclass)=sec%transport(7,jclass)+zsum(7,jclass) 866 sec%transport(9,jclass)=sec%transport(9,jclass)+zsum(9,jclass) 867 ELSE 868 sec%transport(3,jclass)=0. 869 sec%transport(5,jclass)=0. 870 sec%transport(7,jclass)=0. 871 sec%transport(9,jclass)=0. 862 IF( zsum(1,jclass) .NE. 0._wp ) THEN 863 sec%transport( 3,jclass) = sec%transport( 3,jclass) + zsum( 3,jclass)/zsum(1,jclass) 864 sec%transport( 5,jclass) = sec%transport( 5,jclass) + zsum( 5,jclass)/zsum(1,jclass) 865 sec%transport( 7,jclass) = sec%transport( 7,jclass) + zsum( 7,jclass) 866 sec%transport( 9,jclass) = sec%transport( 9,jclass) + zsum( 9,jclass) 872 867 ENDIF 873 IF( zsum(2,jclass) .NE. 0 )THEN 874 sec%transport( 4,jclass)=sec%transport( 4,jclass)+zsum( 4,jclass)/zsum(2,jclass) 875 sec%transport( 6,jclass)=sec%transport( 6,jclass)+zsum( 6,jclass)/zsum(2,jclass) 876 sec%transport( 8,jclass)=sec%transport( 8,jclass)+zsum( 8,jclass) 877 sec%transport(10,jclass)=sec%transport(10,jclass)+zsum(10,jclass) 878 ELSE 879 sec%transport( 4,jclass)=0. 880 sec%transport( 6,jclass)=0. 881 sec%transport( 8,jclass)=0. 882 sec%transport(10,jclass)=0. 868 IF( zsum(2,jclass) .NE. 0._wp )THEN 869 sec%transport( 4,jclass) = sec%transport( 4,jclass) + zsum( 4,jclass)/zsum(2,jclass) 870 sec%transport( 6,jclass) = sec%transport( 6,jclass) + zsum( 6,jclass)/zsum(2,jclass) 871 sec%transport( 8,jclass) = sec%transport( 8,jclass) + zsum( 8,jclass) 872 sec%transport(10,jclass) = sec%transport(10,jclass) + zsum(10,jclass) 883 873 ENDIF 884 874 ELSE 885 sec%transport( 3,jclass) =0.886 sec%transport( 4,jclass) =0.887 sec%transport( 5,jclass) =0.888 sec%transport( 6,jclass) =0.889 sec%transport( 7,jclass) =0.890 sec%transport( 8,jclass) =0.891 sec%transport(10,jclass) =0.875 sec%transport( 3,jclass) = 0._wp 876 sec%transport( 4,jclass) = 0._wp 877 sec%transport( 5,jclass) = 0._wp 878 sec%transport( 6,jclass) = 0._wp 879 sec%transport( 7,jclass) = 0._wp 880 sec%transport( 8,jclass) = 0._wp 881 sec%transport(10,jclass) = 0._wp 892 882 ENDIF 893 883 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.