Changeset 12278 for NEMO/trunk/src
- Timestamp:
- 2019-12-20T13:41:08+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldftra.F90
r12277 r12278 910 910 CALL iom_put( "veiv_heattr", zztmp * zw3d ) ! heat transport in j-direction 911 911 ! 912 IF( iom_use( 'sophteiv' )) CALL dia_ptr_hst( jp_tem, 'eiv', 0.5 * zw3d )912 IF( ln_diaptr ) CALL dia_ptr_hst( jp_tem, 'eiv', 0.5 * zw3d ) 913 913 ! 914 914 zztmp = 0.5_wp * 0.5 … … 945 945 CALL iom_put( "veiv_salttr", zztmp * zw3d ) ! salt transport in j-direction 946 946 ! 947 IF( iom_use( 'sopsteiv' )) CALL dia_ptr_hst( jp_sal, 'eiv', 0.5 * zw3d )947 IF( ln_diaptr ) CALL dia_ptr_hst( jp_sal, 'eiv', 0.5 * zw3d ) 948 948 ! 949 949 !
Note: See TracChangeset
for help on using the changeset viewer.