Changeset 11993 for NEMO/trunk/src/OCE/LDF/ldftra.F90
- Timestamp:
- 2019-11-28T11:20:53+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldftra.F90
r11989 r11993 851 851 CALL iom_put( "woce_eiv", zw3d ) 852 852 ! 853 IF( iom_use('weiv_masstr') ) THEN ! vertical mass transport & its square value854 zw2d(:,:) = rau0 * e1e2t(:,:)855 DO jk = 1, jpk856 zw3d(:,:,jk) = zw3d(:,:,jk) * zw2d(:,:)857 END DO858 CALL iom_put( "weiv_masstr" , zw3d )859 ENDIF860 !861 IF( iom_use('ueiv_masstr') ) THEN862 zw3d(:,:,:) = 0.e0863 DO jk = 1, jpkm1864 zw3d(:,:,jk) = rau0 * ( psi_uw(:,:,jk+1) - psi_uw(:,:,jk) )865 END DO866 CALL iom_put( "ueiv_masstr", zw3d ) ! mass transport in i-direction867 ENDIF868 853 ! 869 854 zztmp = 0.5_wp * rau0 * rcp … … 885 870 CALL iom_put( "ueiv_heattr3d", zztmp * zw3d ) ! heat transport in i-direction 886 871 ENDIF 887 !888 IF( iom_use('veiv_masstr') ) THEN889 zw3d(:,:,:) = 0.e0890 DO jk = 1, jpkm1891 zw3d(:,:,jk) = rau0 * ( psi_vw(:,:,jk+1) - psi_vw(:,:,jk) )892 END DO893 CALL iom_put( "veiv_masstr", zw3d ) ! mass transport in i-direction894 ENDIF895 !896 872 zw2d(:,:) = 0._wp 897 873 zw3d(:,:,:) = 0._wp … … 909 885 CALL iom_put( "veiv_heattr", zztmp * zw3d ) ! heat transport in j-direction 910 886 ! 911 IF( iom_use( 'sophteiv' ) )CALL dia_ptr_hst( jp_tem, 'eiv', 0.5 * zw3d )887 IF( ln_diaptr ) CALL dia_ptr_hst( jp_tem, 'eiv', 0.5 * zw3d ) 912 888 ! 913 889 zztmp = 0.5_wp * 0.5 … … 944 920 CALL iom_put( "veiv_salttr", zztmp * zw3d ) ! salt transport in j-direction 945 921 ! 946 IF( iom_use( 'sopsteiv' )) CALL dia_ptr_hst( jp_sal, 'eiv', 0.5 * zw3d )922 IF( ln_diaptr ) CALL dia_ptr_hst( jp_sal, 'eiv', 0.5 * zw3d ) 947 923 ! 948 924 !
Note: See TracChangeset
for help on using the changeset viewer.